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ABSTRACT 


A  need  exists  for  a  set  of  computer  programs  that  can  be 
used  by  students  to  solve  elementary  digital  signal 
processing  problems  using  a  personal  computer.  This  project 
involved  the  design  and  implementation  of  ten  algorithms 
that  solve  such  problems  and  an  additional  algorithm  that 
creates  plots  of  the  various  input  and  output  sequences. 
The  two  primary  goals  of  the  programs  were:  1)  user 
friendliness  and,  2)  portability.  With  these  goals  in  mind, 
the  source  code  was  written  using  Fortran-77  and  compiled  by 
a  commercially  available  Fortran  compiler  specifically 
designed  for  personal  computers.  The  plotting  program  uses 
a  Fortran-compatible  graphics  package  that  is  also  com¬ 
mercially  available.  The  programs,  once  compiled,  can  be 
distributed  to  users  without  the  requirement  to  purchase 
either  a  Fortran  compiler  or  a  graphics  package;  however, 
access  to  a  Fortran  compiler  enhances  the  utility  of  the 
programs . 


DISCLAIMER 


The  reader  is  cautioned  that  computer  programs  developed  in 
this  research  may  not  have  been  exercised  for  all  cases  of 
interest.  While  every  effort  has  been  made,  within  the  time 
available,  to  ensure  that  the  programs  are  free  of  computa¬ 
tional  and  logic  errors,  they  cannot  be  considered  vali¬ 
dated.  Any  application  of  these  programs  without  additional 
verification  is  at  the  risk  of  the  user. 
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Introductory  digital  signal  processing  courses  present  a 
wide  spectrum  of  challenging  topics  to  students  enrolled  in 
the  electrical  engineering  curriculum.  Undergraduate  level 
courses  present  the  transition  from  analog,  continuous-time 
systems  to  digital,  discrete-time  processes.  Topics  include 
difference  equations,  state-matrix  equations,  system 
transfer  functions,  frequency  response  and  the  z-transform. 
Furthermore,  the  relationship  between  the  time  domain  and 
the  frequency  domain  is  introduced  and  discrete  convolution 
is  discussed.  Graduate  level  courses  introduce  filter 
design  techniques  and  track  the  development  of  the  Fast 
Fourier  Transform  (FFT)  from  the  Discrete  Fourier  Transform 
(DFT) .  The  interrelationships  between  circular  convolu¬ 
tion/correlation  and  the  DFT  are  discussed  and  a  brief 
introduction  to  spectral  estimation  is  given. 

In  brief,  the  transition  from  the  continuous-time  method 
of  system  analysis  to  discrete-time  methods  is  challenging 
to  most  students.  While  analytical  methods  are  covered 
thoroughly  in  the  classroom,  computer  solutions  to  problems 
reinforce  learning  by  facilitating  solutions  to  problems 
containing  long  sequences  of  data.  Furthermore,  the  digital 
computer  is  the  heart  of  digital  signal  processing  applica¬ 
tions  in  the  real  world.  To  this  end,  therefore,  it  is 


instructive  to  present  computer  programs  that  can  perform 
many  of  the  computations  required  for  elementary  digital 
signal  processing  (DSP) . 

The  project  summarized  by  this  report  involved  designing 
a  set  of  computer  programs  that  can  be  used  in  a  laboratory 
environment  to  reinforce  the  basic  concepts  of  digital 
signal  processing.  Although  deviations  exist,  the  al¬ 
gorithms  developed  in  First  Principles  of  Discrete  Systems 
and  Digital  Signal  Processing,  by  R.D.  Strum  and  D.E  Kirk 
[Ref.  1]  were  used  extensively  in  the  development  of  these 
programs.  The  programs  were  written  using  Microsoft  Fortran 
77  Version  4.01.1  This  compiler  was  chosen  because  of  its 
flexibility.  It  will  compile  Fortran  programs  for  personal 
computers  enhanced  with  a  math  coprocessor  (8087/80287)  or 
for  less  capable  machines.  The  total  project  consists  of 
ten  programs  related  to  the  solution  of  digital  signal 
processing  problems  and  an  additional  program  which  produces 
2-dimensional  plots  of  the  data.  The  plotting  program  was 
written  using  the  Fortran-compatible  Graphmatics  software 
library.2  The  minimum  hardware/software  requirements 
necessary  to  run  these  programs  are: 


^-Microsoft  Corp.,  1987,  Bellevue,  Wa.  The  programs 
will  also  compile  after  minor  changes  using  Ryan  McFarland 
Fortran  Version  1.0  or  later. 

2Microcompatibles  Corp.,  1983,  Silver  Springs,  MD. 


*  A  personal  computer  with  at  least  320k  of  available 
memory . 

*  A  monitor  with  a  CGA  card  installed.3 

*  A  single  double-sided,  double-density  diskette  drive. 

The  following  options  will  either  enhance  the  flexibility  or 
increase  the  performance  of  the  programs: 

*  A  Microsoft  Fortran  Compiler  Version  4.01  or  later. 

*  A  dot-matrix  printer. 

Chapter  II  details  the  scope  of  the  programs  and  the 
general  methodology  used  in  developing  them.  Chapter  III 
provides  the  concise  development  of  each  program.  Flow¬ 
charts  are  presented  to  provide  the  architecture  of  the 
algorithms,  depicting  their  macro-level  design.  Applicable 
equations  are  listed  for  each  computational  task  and  the 
corresponding  Fortran  implementation  is  discussed. 


3 A  computer  graphics  card  is  only  required  to  support 
the  graphics  program  PLOTDAT . FOR  and  is  not  required  for  the 
other  programs. 
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II. 


This  chapter  presents  the  scope  of  the  computer  programs 
and  the  general  methods  used  in  designing  them.  The  goals 
of  computational  efficiency  and  user  friendliness  are 
addressed  as  the  two  sometimes  conflict.  Finally,  a  generic 
program  structure  used  throughout  the  software  development 
is  presented. 

A.  SCOPE  OF  THE  PROGRAMS 

The  package  consists  of  ten  problem  solving  programs  and 
a  two-dimensional  plotting  program.  Each  of  the  ten  problem 
solving  programs  is  oriented  toward  solving  a  specific  DSP 
problem.  The  title  of  each  program  and  its  corresponding 
Fortran  filename  are  listed  below: 

Problem  Solving  Programs 

1.  The  frequency  response  of  a  digital  filter. 

Filename:  DIGFREQ . FOR 

2.  The  frequency  response  of  an  analog  filter. 

Filename:  ANLGFREQ . FOR 

3.  The  Discrete  Fourier  Transform  (DFT)  or  Inverse  DFT 

( IDFT)  of  a  finite-length  sequence. 

F i 1 ename :  DFT . FOR 

4.  The  periodogram  of  a  finite-length  sequence. 

Filename :  PRDGRM . FOR 

5.  Convolution  and  correlation  using  the  DFT  algorithm. 

Filename:  CONCORDT.FOR 
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6.  The  Fast  Fourier  Transform  (FFT)  or  Inverse  FFT  (IFFT) 
of  a  finite-length  sequence. 

Filename:  FFT. FOR 

7.  Convolution  and  correlation  using  the  FFT  algorithm. 
Filename:  CONCORFT.FOR 

8.  Convolution  and  correlation  in  the  time  domain. 
Filename:  CONCOR.FOR 

9.  The  iterative  solution  to  a  linear,  time-invariant 
difference  equation. 

Filename:  DIFFEQ . FOR 

10.  The  iterative  solution  to  a  set  of  linear,  time- 
invariant  state-matrix  equations. 

Filename:  STATEQ . FOR 

Plotting  Program 

11.  A  file-driven,  two-dimensional  plotting  algorithm. 
Filename :  PLOT DAT . FOR 

B.  GENERAL  METHODOLOGY  OF  PROGRAM  DEVELOPMENT 

All  of  the  programs  are  oriented  toward  engineering 
students  enrolled  in  elementary  DSP  courses.  Since  most 
engineering  students  have  had  at  least  some  experience  in 
Fortran  programming,  this  language  was  an  obvious  choice. 
The  programs  can  be  executed  without  altering  any  of  the 
Fortran  code;  however,  some  of  the  subroutines  were 
specifically  designed  to  allow  the  addition  of  Fortran 
statements  to  produce  a  desired  sequence  of  data.  This 
option  will  be  discussed  in  more  detail  in  Chapter  III. 

The  source  code  structure  of  the  algorithms  is  designed 
so  that  the  user  can  follow  the  flow  of  each  program  as  it 
performs  the  computations  required  by  the  task  at  hand. 
Computational  efficiency  is  generally  accepted  to  be  one  of 
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a  program  designer's  primary  goals.  However,  because  these 
programs  were  designed  with  the  DSP  student  as  the  'Target 
User',  an  overriding  consideration  was  to  make  the  flow  of 
the  programs  understandable.  For  example,  in  CONCORDT.FOR 
the  program  will  compute,  among  the  options  available, 
either  the  linear  convolution  or  the  circular  correlation  of 
two  data  sequences  by  using  the  DFT  algorithm.  The  steps 
required  by  these  two  options  are  listed  below  [Ref.  l:pp. 
424,432,433]  : 

Option:  Linear  Convolution 

1.  Zero  pad  array  #1. 

2.  Zero  pad  array  #2. 

3.  Compute  the  DFT  of  array  #1. 

4.  Compute  the  DFT  of  array  #2. 

5.  Multiply  the  results  of  steps  3  and  4. 

6.  Compute  the  I DFT  of  step  5. 


1.  Compute  the  DFT  of  array  #1. 

2.  Conjugate  the  result  of  step  1. 

3.  Compute  the  DFT  of  array  #2. 

4 .  Multiply  the  results  of  steps  2  and  3 . 

5 .  Compute  the  I DFT  of  step  4 . 

Clearly,  if  maximum  efficiency  was  the  only  goal  of  the 
programs,  the  steps  could  be  combined  as  follows: 

Option:  Linear  Convolution  or  Circular  Correlation 

1.  If  option  =  Linear  Convolution  then  zero  pad  array  #1 
and  array  #2. 

2.  Compute  the  DFT  of  array  #1. 

3.  If  option  =  Linear  Correlation  then  conjugate  the 
result  of  step  2 . 

4.  Compute  the  DFT  of  array  #2. 

5.  Multiply  the  results  of  steps  2  and  4. 

6.  Compute  the  I DFT  of  step  5. 
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However,  by  maintaining  the  separated  algorithms,  students 
can  gain  insight  into  the  steps  required  to  accomplish  each 
of  the  tasks:  linear  convolution  or  circular  correlation. 
This  example,  although  somewhat  contrived,  demonstrates  the 
general  approach  taken  when  confronted  with  the  issue  of 
efficiency  versus  readability  throughout  the  programming. 
It  is  more  instructive  to  separate  the  Fortran  source  code 
according  to  the  steps  required  to  perform  a  specific 
functional  task  rather  than  combine  steps  to  form  an 
efficient  but  less  readable  algorithm. 

Each  of  the  problem  solving  programs  has  two  modes  of 
operation:  Test  or  Batch.  Test  Mode  was  conceived  to  guide 
inexperienced  users  through  each  program,  allowing  them  the 
option  of  running  the  programs  using  data  prestored  in  a 
data  file  named  XXXX.TST.  For  example,  while  running  the 
program  DFT.FOR  in  Test  Mode,  the  user  can  elect  to  use  the 
prestored  input  data  by  entering  ' DFT.TST',  when  prompted 
for  the  name  of  the  input  file.  The  prestored  input  data 
and  the  output  which  it  produces  correspond  to  an  example 
problem  developed  in  the  header  text  of  each  program.  The 
inexperienced  user  can  therefore: 

1)  Read  the  header  text  including  the  sample  problem. 

2)  Match  the  input  parameters  required  by  the  program  to 
those  occurring  in  the  input  file:  XXXX.TST. 

3 )  Execute  the  program  in  Test  Mode  to  produce  the 
corresponding  output.  In  Test  Mode,  key  input 
parameters  read  from  the  input  file  are  printed  onto 
the  monitor  screen.  This  further  aids  inexperienced 
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users  by  providing  the  opportunity  to  detect  invalid 
input . 

The  more  experienced  user  can  elect  to  run  the  programs 
in  Batch  Mode.  In  this  mode  the  amount  of  interface  with 
the  user  is  minimized.  Upon  execution  in  Batch  Mode,  the 
program  assumes  that  the  appropriate  input  parameters  have 
been  stored  in  the  default  input  file:  XXXX.IN  (e.g., 
DFT.IN).  Figure  2.1  summarizes  the  events  that  occur  in 
each  of  the  two  modes:  Batch  and  Test. 


Figure  2.1  Program  Flow. 
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C.  GENERIC  STRUCTURE 


Students  who  use  these  programs  will  find  some  comfort 
in  their  standardized  input  and  output  structures  as  well  as 
the  documented  Fortran  code  found  in  the  algorithms 
themselves.  With  few  exceptions,  the  specific  names  of 
variables  correspond  to  their  conceptual  counterparts  found 
in  Reference  1.  By  using  a  single  DSP  textbook  such  as  this 
to  guide  the  choice  of  variable  names,  some  standardization 
can  be  achieved  throughout  the  programs'  header  text  and 
accompanying  source  code.  For  example  the  following 
variable  names,  among  others,  occur  in  several  of  the 
programs:  N  «  the  number  of  output  delays  in  a  system;  L  = 
the  number  of  input  delays  in  a  system;  x()  =  the  input 
sequence  of  a  system;  y()  «  the  output  sequence  of  a  system, 
etc.  A  more  comprehensive  discussion  of  specific  variable 
names  occurs  in  the  appendices.  The  remainder  of  this 
chapter  is  dedicated  to  describing  the  structure  of  the  ten 
problem  solving  programs.  The  plotting  program  is  not 
considered  here  as  this  program  was  designed  with  the  sole 
purpose  of  reading  data  from  an  input  file  and  creating  a 
two-dimensional  plot  of  the  data. 

1 •  Input  Structure 

All  of  the  programs  are  file  driven,  that  is,  each 
program  upon  execution  opens  an  input  file,  reads  the 
contents  of  the  input  file,  and  performs  the  computations 
specified  by  the  input  parameters.  Because  of  the  variety 
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of  possible  computations  permitted  by  the  programs,  little 
attempt  was  made  to  standardize  the  specific  inputs 
themselves.  However,  the  following  general  specifications 
are  used: 

*  All  computations  are  performed  using  single  precision 
arithmetic. 

*  All  READ  statements  are  format-directed;  that  is,  none 
of  the  READ  statements  use  list-directed  format.  An 
extensive  discussion  of  the  tradeoffs  of  these  two 
methods  is  available  in  Fortran  programming  literature 
(e.g. ,  [Ref.  2  ] )  . 

*  'Real'  numbers  are  read  using  format:  Fio.o.  This 

allows  the  flexibility  of  reading  real  numbers  entered 
using  either  F  or  E  format  descriptors. 

*  'Complex'  numbers  are  read  as  two  real  numbers,  each 
having  format:  FIO.O. 

*  Integer  values  required  by  the  programs  are  read  using 
the  I  (integer)  format  descriptor. 

*  Character  strings  required  by  the  programs  vary  in 
length,  however,  none  of  the  required  string  inputs  is 
longer  than  10  characters. 

*  Separate  data  entries  occurring  on  a  given  line  (record) 
of  the  input  file  begin  in  one  of  the  following  columns: 
1,  11,  21,  31,  41,  51. 

During  the  developmental  stage  of  the  programs  an 
attempt  was  made  to  use  list-directed  inputs.  It  was 
discovered  however,  that  different  Fortran  compilers  treat 
variable  assignments  in  different  ways.  For  example,  while 
some  compilers  allow  integers  to  be  read  into  variables 
declared  as  real  and  vice  versa,  other  compilers  will  not 
allow  this.  in  order  to  maintain  the  portability  of  the 
programs;  therefore,  format-directed  inputs  are  used 
exclusively. 


Each  of  the  programs  contains  instructions  in  the 
header  text  describing  the  options  available  and  the  input 
parameters  required  to  run  the  program.  An  example  problem 
is  developed  in  this  text  including  a  brief  overview  of  the 
problem,  the  input  required  to  achieve  the  desired  results, 
and  a  listing  of  the  actual  output  produced  by  the  program. 
This  approach  allows  first-time  users  to  confirm  their 
understanding  of  each  program's  input  requirements  and 
corresponding  format.  As  stated  at  the  beginning  of  this 
chapter,  each  sample  problem  can  actually  be  run  by 
executing  the  program  in  Test  Mode  and  specifying  the  input 
filename:  XXXX.TST  at  the  prompt.  Experienced  users  can 
elect  to  run  the  programs  in  Batch  Mode  in  which  case  the 
programs  attempt  to  OPEN  and  READ  the  default  input  file: 
XXXX.IN  (e.g.,  DFT.IN).  Input  files  for  other  than  test 
runs  should  be  named  according  to  this  scheme. 

2 .  Program  Structure 

Each  program  consists  of  a  main  program  and  one  or 
more  subroutine  subprograms.  The  computations  related  to 
the  functional  tasks  of  each  program  are  performed  in 
suitably  named  subroutines.  For  example,  the  program 
DFT.FOR  will  compute  either  the  Discrete  Fourier  Transform 
or  the  Inverse  Discrete  Fourier  Transform  of  a  given  input 
sequence  depending  on  the  option  selected.  The  program 
consists  of  a  main  program  and  the  subroutines  DFT,  INVDFT , 
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and  SAMPLE.  The  subroutines  DFT  and  INVDFT  perform  the 
computations  suggested  by  their  names  and  SAMPLE  allows  the 
user  the  option  of  generating  an  input  sequence  by  providing 
the  appropriate  Fortran  statements  in  the  space  provided  in 
the  body  of  the  subroutine  source  code.  Housekeeping  tasks 
are  reserved  for  the  main  programs.  These  tasks  include, 
but  are  not  limited  to,  the  following: 

*  Obtaining  the  inputs  required  by  the  program,  either 
from  the  input  file  or  from  the  keyboard,  as  appro¬ 
priate. 

*  Conducting  rudimentary  error  checks  on  the  input  data. 

*  Calling  the  appropriate  subroutines  to  perform  the 
desired  computations. 

*  Performing  data  conversions  (e.g.,Real  and  Imaginary  — > 
Magnitude  and  Phase) . 

*  Creating  the  output  files. 

Error  checking  consists  of  ensuring  that  the 
numerical  input  values  are  within  the  range  specified  in 
each  program's  header  text.  This  reduces  the  chance  of 
making  gross  errors  such  as  inputting  '30'  when  a  READ 
statement  requires  format  14  thereby  producing  an  erroneous 
input  of  3000!  Character  string  inputs  are  used  by  most  of 
the  programs  to  distinguish  among  the  available  options. 
Error  checking  involving  these  inputs  is  limited  to  a  simple 
string  comparison.  The  error  messages  produced  by  any  of 
these  algorithms  are  self-explanatory. 
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3. 


Output  Structure 

Several  purposes  are  served  by  the  output  listings 
of  the  programs.  Among  these  are  the  following: 

1)  To  allow  the  user  to  confirm  anticipated  results  by 
comparing  the  output  data  generated  by  the  computer 
algorithm  to  analytical  results  generated  indepen¬ 
dently. 

2)  To  place  the  output  data  in  a  format  suitable  for  two- 
dimensional  plotting  by  a  program  such  as  PLOTDAT . FOR . 

The  former  stated  purpose  requires  that  the  output 
data  be  in  easily  readable,  tabular  form.  To  accomplish 
this,  each  program  generates  an  output  file  named:  XXXX.OUT 
(e.g.,  FFT.OUT) .  At  the  beginning  of  each  tabular  output 
file  the  data  read  from  the  input  file  is  listed  including 
any  input  sequence(s)  .  Additionally,  any  input  sequence(s) 
generated  by  a  subroutine  such  as  SAMPLE  is  also  written  to 
the  output  file.  Lastly,  the  output  data  generated  by  the 
program  is  listed.  This  comprehensive  listing  of  the  input 
data  as  well  as  the  output  data  allows  the  user  to  verify 
that  the  input  values  were  read  correctly  from  the  input 
file.  Furthermore,  with  both  the  input  data  as  well  as  the 
output  data  in  one  listing,  the  user  can  identify  the 
problem  and  check  the  computational  results  more  readily. 

The  two-dimensional  plotting  program  PLOTDAT. FOR 
reads  data  according  to  the  format:  fl2.0,  2X,  fl2.0,  with 
the  first  entry  on  each  line  corresponding  to  the  ordinate 
value  and  the  second,  the  abscissa.  The  plotting  program 
will  produce  more  than  one  plot  if  the  appropriate  data 
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entries  exist  in  the  input  file.  This  flexibility  of  the 
plotting  program  suggests  the  possibility  of  plotting  not 
only  the  output  data,  but  also  any  input  sequence (s)  .  To 
accommodate  the  capabilities  of  the  plotting  program,  each 
of  the  ten  problem  solving  programs  creates  an  output  file 
named:  XXXX.DAT  (e.g.,  FFT.DAT).  For  programs  that  require 
an  input  sequence (s),  both  the  input  sequence (s)  as  well  as 
the  output  sequence (s)  are  stored  in  the  output  file 
XXXX.DAT.  These  output  files  are  created  in  addition  to  the 
tabular  output  files  and  do  not  require  any  user  interface. 

The  general  content  and  format  of  the  programs  have 
been  discussed  in  this  chapter.  The  next  chapter  formally 
develops  each  program,  relating  computational  goals  to 
specific  source  code. 


A  subsection  of  this  chapter  is  dedicated  to  each  of  the 
ten  problem  solving  programs  as  well  as  the  plotting  program 


PLOTDAT.FOR.  Flowcharts  that  describe  the  various  al¬ 
gorithms  are  located  in  Appendices  A  through  K  and  listings 
of  the  Fortran  source  code  for  the  programs  are  included  as 
Appendix  L. 

A.  PROBLEM  SOLVING  PROGRAMS 
1.  DIGFREO . FOR 

The  program  DIGFREQ. FOR  is  designed  to  compute  the 
frequency  response  of  up  to  three  digital  filters.  The 
program  assumes  that  the  filters  are  stable  and  that  the 
transfer  function  of  each  filter  has  the  form: 

b(0)zL  +  b(l)zL"l  +  b(2)zL“2  +  ...  +  b (L— 1) z  +  b(L) 
H(z)  =  - 

C  (0)  ZN  +  Cfljz11”1  +  c(2)zn~2  +  ...  +  c  (N— 1)  Z  +  c  (N) 

(3.1) 

The  order  of  the  numerator  (L)  and  the  order  of  the 
denominator  (N)  can  be  assigned  any  integer  values  in  the 
range:  0  to  128.  These  parameters  are  read  from  the  input 
file.  The  program  accepts  up  to  three  distinct  filter 
equations  and  will  compute  the  magnitude  and  phase  (degrees) 
for  up  to  101  frequency  points  for  each  filter.  The 
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frequency  (9)  range  of  interest  is  also  specified  by  the 
user  in  the  input  file. 

The  program  consists  of  the  main  program  DIGFREQ . FOR 
and  the  subroutines  COEFF  and  DFRESP.  The  user  can  provide 
the  filter  coefficients  [arrays  b()  and  c()]  in  the  input 
file  or  can  elect  to  generate  them  through  use  of  the 
subroutine  COEFF.  If  this  latter  option  is  chosen  then  the 
user  must  provide  the  appropriate  Fortran  statements  in  the 
space  allocated  in  the  subroutine  and  the  program  must  be 
compiled  again  before  execution.  Subroutine  DFRESP  is 
called  by  the  main  program  to  perform  the  actual  frequency 
response  computations. 

This  program  is  an  implementation  of  the  psuedocode 
presented  in  Reference  1.  [p.  203]  The  software  flowcharts 
of  Appendix  A  depict  the  overall  program  structure.  If  the 
user  has  elected  to  run  the  program  in  Batch  Mode  the 
default  input  file  DIGFREQ. IN  is  opened  by  the  program  and 
the  input  parameters  are  read  from  it.  If  Test  Mode  is 
chosen,  the  input  file  whose  name  is  specified  by  the  user 
is  read.  The  parameters  describing  each  filter  are  passed 
to  subroutine  DFRESP  which  then  computes  the  magnitude  and 
phase  of  H(z)  for  each  value  of  z  =  e^e  in  the  specified 
range  of  0.  By  using  nested  multiplication  to  compute  the 
frequency  response,  DFRESP  adds  a  measure  of  efficiency  to 
the  program  [Ref.  3].  In  the  limit  (L  =  128,  N  =  128),  if 
evaluation  of  each  polynomial  term  is  performed  for  101 


frequency  points,  the  total  number  of  complex  multiplies 
required  is  over  1.6  million.  The  corresponding  number  of 
complex  multiplies  required  using  the  Nested  Multiplication 
technique  is  about  26  thousand. 

The  input  parameters  read  from  the  input  file  and 
the  corresponding  frequency  response (s)  generated  by  the 
program  are  stored  in  tabular  form  in  the  output  file 
DIGFREQ.OUT.  Additionally,  the  program  writes  the  frequency 
response  data  into  the  file  DIGFREQ.DAT.  Appropriate  labels 
and  control  parameters  accompany  the  data  in  DIGFREQ.DAT  and 
are  written  in  a  form  compatible  with  the  plotting  program 
PLOTDAT . FOR . 

Appendix  A  traces  the  development  of  two  digital 
filters  and  compares  the  anticipated  frequency  responses 
with  the  computer  generated  output.  Plots  of  the  output 
data  produced  by  PLOTDAT. FOR  are  included  in  the  analyses. 

2.  ANLGFREO . FOR 

The  program  ANLGFREQ . FOR  is  designed  to  compute  the 
frequency  response  of  continuous-time  (analog)  systems.  The 
design  of  ANLGFREQ. FOR  is  very  similar  to  DIGFREQ. FOR.  The 
program  assumes  that  the  filter  is  stable  and  that  the 
transfer  function  has  the  form: 

b(0)sL  +  b(l)sL_1  +  b(2)sL“2  +  ...  +  b ( L- 1 ) s  +  b (L) 

H (s)  =  - 

a ( 0 ) sN  +  a(l)sN-1  +  a (2) sN_2  +  ...  +  a(N-l)s  +  a(N) 

(3.2) 
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The  order  of  the  numerator  (L)  and  the  order  of  the 
denominator  (N)  can  be  assigned  any  integer  values  in  the 
range:  0  to  128.  The  parameters  L  and  N,  as  well  as  the 
coefficients  b(0),  . ..,  b(L)  and  a(0),  . ..,  a(N)  are 
specified  in  the  input  file.  As  with  DIGFREQ.  FOR,  the 
program  will  accept  up  to  three  distinct  filter  equations 
from  the  input  file,  and  calculate  the  magnitude  and  phase 
for  up  to  101  frequency  points  for  each  filter.  The  user 
must  specify  the  frequency  range  of  interest  and  can  elect 
to  have  the  magnitude  expressed  in  decibels  (dB) . 

The  algorithm  consists  of  the  main  program  ANLG- 
FREQ . FOR  and  the  subroutine  AFRESP.  The  main  program 
controls  the  input  and  output  and  calls  subroutine  AFRESP  to 
compute  the  frequency  response  for  each  filter.  The 
software  flowcharts  of  Appendix  B  depict  the  program 
structure.  Subroutine  AFRESP  is  an  adaptation  of  the 
Fortran  source  code  used  in  subroutine  DFRESP  [Ref.  l:p. 
621].  ANLGFREQ . FOR  computes  the  frequency  response  of 
filters  expressed  in  the  's  domain'.  This  differs  from 
DIGFREQ. FOR  which  computes  the  frequency  response  of  filters 
expressed  in  the  'z  domain'.  Notwithstanding  this  dif¬ 
ference,  the  subroutines  DFRESP  and  AFRESP  are  identical 
[except  that  'jw'  (j  omega)  is  substituted  for  the  complex 
variable  'z'  in  AFRESP]  and  the  efficiencies  gained  through 
the  use  of  nested  multiplication  apply  for  AFRESP  as  well. 


The  output  data  produced  by  ANLGFREQ . FOR  are  stored 


in  two  files:  ANLGFREQ. OUT  and  ANLGFREQ . DAT .  The  former 

output  file  lists  both  the  input  parameters  as  well  as  the 
output  data  for  each  filter  in  tabular  form.  ANLGFREQ . DAT 
is  a  listing  of  the  output  data  in  a  form  suitable  for 
plotting. 

Appendix  B  presents  the  conceptual  development  of  an 
analog  filter  and  its  corresponding  frequency  response  using 
ANLGFREQ. FOR.  Plots  of  the  output  data  generated  by 
PLOTDAT . FOR  are  included  in  the  analysis. 

3.  DFT . FOR 

A  task  particularly  well  suited  for  the  digital 
computer  is  the  computation  of  the  Discrete  Fourier 
Transform  (DFT)  or  its  inverse,  the  I  DFT .  The  DFT  of  a 
sequence  N  samples  long  is  defined  by: 

N-l 

X(k)  =  Z  x(n)  e~j27rnk/N  f  k  =  0,  1,  ...,  N-l 

n=0 

(3.3) 

Its  corresponding  inverse,  the  I DFT,  is  defined  by: 


x(n) 


1  N-l 

Z  X(k)  eJ27rnk/N 
N  k=0 


n  =  0 ,  1 ,  . . . ,  N-l 

(3.4) 


An  alternate  method  for  calculating  the  IDFT  is  the 
'Alternate  Inversion  Formula'  [Ref.  l:p.  406]: 


r  1  * 

1  N-l  *  -j2jrnk/N 

x(n)  =  S  X(k)e  ,  n  =  0,  1,  N-l 

N  k=0 

*  Denotes  complex  conjugation.  (3.5) 

Once  an  algorithm  has  been  developed  to  compute  the  DFT 
[Equation  (3.3)],  the  I DFT  can  be  efficiently  computed  using 
Equation  (3.5).  The  steps  involved  in  computing  the  I  DFT 
are  summarized  below. 

1.  Conjugate  all  N  values  of  the  sequence  X(k) . 

2 .  Use  the  DFT  algorithm  to  compute  the  DFT  of  the 

conjugated  sequence. 

3.  Conjugate  the  sequence  resulting  from  step  2  and 

divide  each  value  by  N.  The  result  is  the  sequence 

x(n)  . 

The  program  DFT. FOR  consists  of  a  main  program  and 
the  subroutines  DFT,  INVDFT,  and  SAMPLE.  The  main  program 
reads  the  required  input  parameters  from  the  input  file  and, 
depending  on  the  option  specified  by  the  user,  computes 
either  the  DFT  or  the  I DFT  of  the  input  sequence  by  calling 
the  appropriate  subroutine.  The  program  will  accept  a 
complex  input  sequence  of  up  to  256  samples.  Since  typing  a 
long  sequence  of  data  into  an  input  file  is  somewhat 

impractical,  the  user  has  the  option  of  generating  the  input 
sequence  by  using  the  subroutine  SAMPLE.  If  this  method  of 
data  generation  is  chosen,  the  user  must  provide  the  Fortran 
statements  required  to  generate  the  sequence,  in  the  space 
provided  in  the  subroutine.  For  example,  if  the  user 
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desires  to  compute  the  DFT  of  the  'real'  sequence  xin(i) 


cos(ijr/N)  for  i  =  0,  1,  N-l  appropriate  Fortran 

statements  to  be  written  into  SAMPLE  are: 
do  100  i  =  0,  N-l 

xin(i)  =  cmplx(cos (i*3 . 14159/N) ,  0.0) 

100  continue 

A  caveat  to  using  this  method  of  data  generation  is  that  the 
program  must  be  recompiled  before  execution. 

The  software  flowcharts  of  Appendix  C  depict  the 

overall  program  structure.  As  the  flowcharts  indicate,  the 

\ 

program  computes  the  DFT  of  the  sequence  according  to 
Equation  (3.3)  and  computes  the  I DFT  by  use  of  the  Alternate 
Inversion  Formula.  Thus,  subroutine  INVDFT  must  call 
subroutine  DFT  as  part  of  the  I  DFT  computation.  Both 
algorithms  are  implementations  of  the  psuedocode  archi¬ 
tecture  presented  in  Reference  1  [pp.  411,  412].  This 
design  incorporates  the  efficiencies  of  nested  multiplica¬ 
tion  stated  previously.  Also  included  in  Appendix  C  are 
three  example  problems  that  demonstrate  the  capabilities  of 
DFT. FOR. 

4 .  PRDGRM. FOR 

As  the  first  of  two  application  programs  of  the  DFT 
algorithm,  PRDGRM. FOR  provides  an  introduction  to  the 
classical  methods  of  spectrum  analysis.  The  periodogram  of 
a  sequence  is  defined,  quite  simply,  as  the  square  of  the 
DFT  of  the  sequence  divided  by  N,  the  number  of  points  [Ref. 
l:pp.  454-456].  Equation  (3.3)  governs  the  computation  of 
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the  DFT  sequence  X(k)  ,  and  with  this  task  accomplished  the 
periodogram  can  be  computed  from: 

1  * 

Sxx(k)  =  -  X(k)X(k)  k  =  0,  1,  . ..,  N-l 

N 

*  Denotes  complex  conjugation.  (3.6) 

The  program  PRDGRM . FOR  will  compute  the  periodogram 
of  a  sequence  consisting  of  up  to  256  complex  values.  To 
facilitate  the  generation  of  long  sequences  of  input  data, 
the  subroutine  SAMPLE  has  been  provided  as  part  of  the 
algorithm.  Instructions  for  its  use  are  the  same  as  those 
discussed  in  the  previous  section.  The  main  program 
performs  the  input  and  output  tasks  required  by  the  program 
and  calls  subroutine  DFT  to  compute  the  sequence  X(k) .  Once 
the  array  X(k)  has  been  computed,  the  main  program  computes 
the  sequence  Sxx(k)  by  implementation  of  Equation  (3.6).  An 
option  available  to  the  user  is  to  have  the  output  sequence 
expressed  in  decibels,  a  result  commonly  referred  to  as  the 
'  Log  Periodogram 1 . 

Appendix  D  includes  three  example  problems  that 
demonstrate  the  utility  of  PRDGRM. FOR.  Included  in  the 
problem  analyses  is  a  discussion  of  the  limitations  of  the 
periodogram  as  a  means  of  spectral  estimation  for  finite- 
length  sequences.  The  software  flowcharts  of  the  appendix 
outline  the  program's  structure. 


5.  CONCORDT. FOR 

The  second  application  program  of  the  DFT  algorithm 
is  CONCORDT .  FOR .  The  program  uses  the  DFT  technique  to 
perform  one  of  the  following  operations,  given  two  sequences 
of  complex  input  values: 

1.  Linear  convolution. 

2.  Linear  correlation. 

3.  Circular  convolution. 

4.  Circular  correlation. 

The  program  consists  of  the  main  program  CON¬ 
CORDT.  FOR  and  the  subroutines  DFT,  INVDFT ,  SAMPL1,  SAMPL2, 
and  ZEROPAD.  Subroutines  DFT  and  INVDFT  compute,  respec¬ 
tively,  the  DFT  and  the  I  DFT  of  a  given  sequence.  Sub¬ 
routines  SAMPL1  and  SAMPL2  allow  the  user  the  option  of 
generating  the  input  sequences  xnl ( )  and  xn2 ( )  by  providing 
the  appropriate  Fortran  statements  in  the  space  provided  in 
the  subroutines.  Details  of  these  four  subroutines  were 
presented  previously  and  therefore  will  not  be  repeated 
here.  Subroutine  ZEROPAD  is  designed  to  extend  each  of  the 
input  sequences  to  the  length  required  for  computing  either 
the  linear  convolution  or  the  linear  correlation  using  the 
DFT  technique.  For  example,  to  compute  the  linear  convolu¬ 
tion  of  the  two  input  sequences  xnl()  and  xn2 ( )  of  length  N1 
and  N2 ,  respectively,  each  of  the  these  sequences  must  be 
padded  with  enough  zeros  to  extend  the  sequences  to  length: 
N3  =  N1  +  N2  -  1  samples.  To  accomplish  this,  the  sequence 
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xnl()  must  be  padded  with  N3  -  N1  zeros  and  the  sequence 
xn2()  must  be  padded  with  N3  -  N2  zeros.  This  same 
procedure  is  required  if  the  linear  correlation  of  the  two 
sequences  is  to  be  performed.  In  either  case,  subroutine 
ZEROPAD  extends  the  sequences  to  the  required  length.  The 
program  accepts  input  sequences  consisting  of  up  to  128 
complex  values .  The  input  sequences  xnl ( )  and  xn2 ( )  are 
assumed  to  exist  in  the  sample  intervals  0  to  N1  -  1  and  0 
to  N2  -  1,  respectively. 

The  technique  of  using  the  DFT  algorithm  to  compute 
the  convolution  of  two  sequences  is  based  on  the  concept 
that  time  domain  convolution  corresponds  to  frequency  domain 
multiplication.  Given  this  relationship,  the  steps  required 
to  compute  the  circular  convolution  of  two  sequences  are 
depicted  below.  For  ease  of  documentation,  the  following 
symbols  are  used: 

*  Denotes  linear  convolution. 

®  Denotes  circular  convolution. 


xn3()  =  xnl()  ®  xn2() 
Figure  3.1  Circular  Convolution. 
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The  circular  correlation  R()  can  be  computed  in  the 

xnlxn2 

time  domain  by  reversing  the  order  of  the  sequence  xnl()  and 
performing  circular  convolution  on  the  resulting  sequences. 
Circular  correlation  can  also  be  performed  using  the  DFT 
technique  by  performing  the  following  steps: 


&()  =  The  circular  correlation  of  xnl()  and  xn2(). 

xnlxn2 

Figure  3.2  Circular  Correlation. 

Linear  convolution  is  performed  by  first  zero 
padding  the  sequences  to  length  N3  =  N1  +  N2  -  1  and  then 
performing  circular  convolution  on  the  extended  sequences. 
Thus,  the  steps  required  to  perform  linear  convolution  are: 


xn3 ( )  =  xnl ( )  *  xn2 ( ) 

Figure  3.3  Linear  Convolution. 
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Linear  correlation  is  similarly  computed  by  first 
zero  padding  the  sequences  and  then  performing  circular 
correlation  on  the  extended  sequences.  The  steps  required 


for  this  computation  are: 


xnl() — > 

xn2() — > 


R ( )  -  Th«  linear  corralation  of  xnl()  and  xn2(). 

xnlxn2 


Figure  3.4  Linear  Correlation. 

A  phenomenon  encountered  when  performing  the  linear 
correlation  operation,  using  the  DFT  technique,  is  'wrap¬ 
around'  of  the  output  sequence.  This  is  directly  at¬ 
tributable  to  the  required  zero  padding  of  the  input 
sequences.  While  it  would  be  a  simple  matter  of  software 
manipulation  to  prevent  the  wraparound  from  appearing  in  the 
final  output  sequence,  it  is  felt  that  incorporation  of  the 
phenomenon  is  relevant  to  student  comprehension  of  the 
actual  computations  involved.  Example  #4  of  Appendix  E 
demonstrates  the  wraparound  that  occurs  when  the  linear 
correlation  of  two  input  sequences  is  computed. 

The  procedures  described  above  as  well  as  a 
comprehensive  analysis  on  use  of  the  DFT  technique  to 
perform  convolution  and  correlation  are  presented  in  Chapter 


7  of  Reference  1.  CONCORDT.FOR  is  a  Fortran  implementation 
of  this  technique.  Flowcharts  describing  the  structure  of 
CONCORDT.FOR  and  subroutine  ZEROPAD  are  included  in  Appendix 
E.  Also  included  in  this  appendix  are  example  problems 
demonstrating  the  four  computations  that  CONCORDT.FOR  is 
capable  of  performing. 

6.  FFT.FOR 

Similar  in  purpose  to  DFT.FOR,  FFT.FOR  is  designed 
to  compute  the  DFT  or  the  IDFT  of  a  complex  input  sequence 
consisting  of  up  to  256  samples.  The  advantage  FFT.FOR  has 
to  offer  over  DFT.FOR  is  use  of  the  Fast  Fourier  Transform 
(FFT)  technique  for  computing  the  DFT.  Entire  books  have 
been  dedicated  to  this  subject,  most  of  which  include  a 
Fortran  algorithm  for  performing  the  FFT  computation.  The 
FFT  technique  used  by  FFT.FOR  is  a  Radix-2,  Decimation  In 
Time  algorithm  adapted  from  the  psuedocode  design  appearing 
in  Reference  1  [pp.  510-512].  Included  in  this  reference  is 
a  software  flowchart  of  the  subroutine  REVERSAL  which  is 
discussed  in  more  detail  below. 

The  program  consists  of  the  main  program  FFT.FOR  and 
the  subroutines  FFT,  REVERSAL,  INVFFT,  and  SAMPLE.  The  main 
program  calls  subroutine  FFT  to  perform  the  actual  FFT 
computations.  In  order  to  use  the  Decimation  In  Time 
algorithm,  the  input  sequence  must  be  reordered  according  to 
a  'bit-reversal1  scheme.  This  scheme  involves  changing  the 
position  that  each  sample  holds  in  the  input  sequence  by 


reversing  the  order  of  the  bits  corresponding  to  the 

positional  address  of  each  sample.  For  example,  an  8-sample 

input  sequence  would  have  the  binary  positional  addresses: 

[000  001  010  011  100  101  110  111].  After  reversing  the 

order  of  the  sequence,  the  binary  addresses  of  the  bit- 

reversed  sequence  would  be:  [000  100  010  110  001  101  011 

111].  In  terms  of  the  Fortran  array  x(),  the  8-element, 

bit-reversed  array  will  contain  the  original  eight  values 

but  rearranged  into  the  new  order: 

x(0) 

x(4) 

X  (2) 
x  (6) 

X(l) 
x  (5) 
x(3) 
x  (7) 

Subroutine  REVERSAL  performs  this  reordering  of  the  input 
sequence.  The  main  program  passes  the  original  input 
sequence  to  the  subroutine  in  the  array  xtmpf)  and  the 
subroutine  returns  the  bit-reversed  sequence  in  the  array 
x()  . 

In  addition  to  the  FFT  computation,  FFT.FOR  was 
designed  to  compute  the  Inverse  Fast  Fourier  Transform 
(IFFT)  .  If  used  for  no  other  reason,  the  I  FFT  serves  as  a 
check  on  the  FFT  computation.  For  example,  the  user  can 
elect  to  have  the  FFT  of  a  sequence  computed,  and  as  a  check 
on  the  computed  results,  run  the  program  again  but  this  time 
using  the  FFT  results  as  input  to  the  IFFT  computation.  The 
results  of  this  second  run  should  be  the  original  input 


sequence,  with  some  allowance  for  single-precision  roundoff 
error.  Subroutine  INVFFT  performs  the  IFFT  computation  in  a 
manner  identical  to  the  IDFT  computation  performed  by 
subroutine  INVDFT.  In  fact,  the  flowcharts  of  the  two 
subroutines,  except  for  the  names  of  the  variables,  are 
identical . 

Subroutine  SAMPLE  provides  the  means  to  generate  the 
input  sequence  by  allowing  the  user  to  write  the  appropriate 
Fortran  statements  into  the  space  allocated  in  the  sub¬ 
routine.  The  user  can  elect  to  use  this  method  of  data 
generation  or  can  choose  to  provide  the  N  complex  input 
samples  in  the  input  file. 

Because  FFT.FOR  is  a  Radix-2  algorithm,  the  input 
sequence  must  be  of  length  N  *  2™,  m  =  integer.  This 
apparent  limitation  to  the  utility  of  the  FFT  is  easily 
overcome  in  practical  applications  by  either:  1)  Requiring 
the  sampled  input  sequence  to  be  of  the  correct  length  or; 
2)  Zero  padding  the  input  sequence  until  it  is  of  length 
N  =  2m.  This  later  technique  is  used  in  the  program  CON- 
CORFT . FOR  presented  in  the  next  section.  Zero  padding 
should  not  be  used  to  extend  a  sequence  for  the  purpose  of 
computing  a  periodogram;  however,  since  the  addition  of 
zeros  will  cause  erroneous  frequency  information  to  appear 
in  the  periodogram  sequence. 

The  input  and  output  sequences  are  stored  in  tabular 
form  in  the  file  FFT. OUT.  Additionally,  the  sequences  are 
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written  into  the  file  FFT.DAT  in  a  form  suitable  for 

plotting. 

The  software  flowcharts  of  Appendix  F  depict  the 
structure  of  FFT.FOR  and  the  subroutines  FFT,  INVFFT  and 
REVERSAL.  Also  included  in  this  appendix  are  two  example 
problems  that  demonstrate  both  the  FFT  and  the  I FFT 
computations . 

7.  CONCORFT ■ FOR 

As  an  application  program  for  the  FFT  algorithm, 
CONCORFT. FOR  is  capable  of  performing  any  one  of  the 

following  four  operations,  given  two  sequences  of  complex 
input  data: 

1.  Linear  convolution. 

2.  Linear  correlation. 

3.  Circular  convolution. 

4.  Circular  correlation. 

Similar  in  design  to  CONCORDT . FOR ,  this  program  also 
uses  the  DFT  technique  to  perform  the  selected  operation. 
Figures  3 . 1  through  3 . 4  describe  the  computations  required 
by  each  of  the  four  operations.  In  order  to  take  full 
advantage  of  the  efficiencies  of  the  FFT  algorithm,  however, 
each  of  the  DFT  computations  required  by  CONCORFT. FOR  is 
accomplished  using  an  FFT.  This  design  invokes  the 

requirement  that  the  input  sequences  be  of  length  N  =  2m 
(m  =  integer) ,  since  the  FFT  subroutine  used  by  the  program 
is  a  Radix-2  algorithm.  For  the  linear  convolution/ 
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correlation  operations  this  requirement  is  easily  fulfilled 
by  zero  padding  the  sequences  to  a  suitable  length.  For 
example,  if  the  sequences  xnl()  and  xn2()  are  of  length  N1  = 
4  and  N2  =  3,  the  linear  convolution/correlation  operations, 
as  computed  via  the  DFT  technique,  require  that  the  input 
sequences  be  zero  padded  to  the  minimum  length:  N3=N1  + 
N2  -  1  =  6.  Since  N3  =  6  is  not  an  integer  power  of  two, 
CONCORFT.FOR  will  further  extend  the  sequences  to  length 
N3  =  23  =  8  by  additional  zero  padding.  The  extended 
sequences  can  then  be  used  in  the  FFT  computations. 

While  zero  padding  is  intrinsic  to  CONCORFT . FOR • s 
linear  convolution/correlation  operations,  its  use  in 
performing  circular  convolution/correlation  will  lead  to 
erroneous  results.  For  this  reason,  CONCORFT.FOR  will 
perform  circular  convolution/correlation  only  if  the  input 
sequences  are  of  equal  length  and  the  lengths  are  an  integer 
power  of  two.  The  program  is  designed  to  screen  the  input 
data  to  ensure  that  these  requirements  are  met.  Suitable 
error  messages  are  printed  on  the  screen  and  the  program's 
execution  is  halted  if  they  are  not  met. 

CONCORFT.FOR  accepts  input  sequences  consisting  of 
up  to  128  complex  values.  The  input  sequences  xnl()  and 
xn2()  are  assumed  to  exist  in  the  sample  intervals  0  to 
N1  -  1  and  0  to  N2  -  l,  respectively.  The  main  program 
controls  the  input/output  tasks  and  calls  the  appropriate 
subroutines  to  perform  the  selected  operation.  There  are 
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six  subroutines  in  all  and  a  brief  description  of  the 
function  of  each  subroutine  is  as  follows: 


1.  FFT  -  Computes  the  Fast  Fourier  Transform  of  a 
sequence . 

2.  INVFFT  -  Computes  the  Inverse  Fast  Fourier  Transform 
of  a  sequence. 

3 .  REVERSAL  -  Rearranges  a  sequence  into  bit-reversed 
order . 

4.  ZEROPAD  -  Extends  a  sequence  by  adding  an  appropriate 
number  of  zero  values. 

5.  SAMPL1  -  Allows  the  user  the  capability  of  generating 

the  sequence  xnl()  by  providing  the  appropriate 

Fortran  statements  in  the  space  allocated  in  this 
subroutine. 

6.  SAMPL2  -  Allows  the  user  the  capability  of  generating 

the  sequence  xn2()  by  providing  the  appropriate 

Fortran  statements  in  the  space  allocated  in  this 
subroutine. 

A  software  flowchart  describing  the  design  of 

CONCORFT . FOR  is  provided  in  Appendix  G.  Also  included  in 
this  appendix  are  four  example  problems,  each  of  which 
demonstrates  one  of  the  operations  that  CONCORFT. FOR  is 
capable  of  performing. 

8.  CONCOR. FOR 

The  program  CONCOR. FOR  is  designed  to  compute  either 
the  linear  convolution  or  the  linear  correlation  of  the  two 
input  sequences  xnl(n)  and  xn2(n).  The  non-zero  values  of 
the  sequence  xnl(n)  must  exist  in  the  range:  nsl  <  n  <  nel. 
Similarly,  the  non-zero  values  of  xn2(n)  must  exist  in  the 
range  ns2  <  n  <  ne2 .  The  constraints  on  the  values  nsl, 
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nel,  ns2,  ne2  are:  -  128  <  nsl  <  nel  <  128  and  -  128  < 
ns2  <  ne2  <  128. 

Unlike  the  frequency  domain  techniques  used  to 
perform  convolution  and  correlation  in  CONCORDT.FOR  and 
CONCORFT . FOR ,  all  computations  performed  by  this  algorithm 
are  done  in  the  time  domain.  For  linear  convolution, 
Equation  (3.7)  applies. 

00 

yn(n)  =  E  xnl  (m)  *xn2  (n-m) 
m=-«o 

(3.7) 

For  linear  correlation,  as  it  is  performed  by  this  al¬ 
gorithm,  Equation  (3.8)  applies. 

oo 

R (p)  *  E  xnl  (m)  *xn2  (p+m) 

xnlxn2  m=-<» 

(3.8) 

The  program  consists  of  the  main  program  CONCOR.FOR 
and  the  subroutines  SAMPL1,  SAMPL2,  CONVOL,  and  CORREL. 
Subroutines  SAMPL1  and  SAMPL2  allow  the  user  to  generate 
either  of  the  input  sequences  by  providing  the  appropriate 
Fortran  statements  in  the  space  provided  in  the  subroutines. 
Subroutine  CONVOL  is  called  by  the  main  program  to  compute 
the  linear  convolution  of  the  two  sequences,  according  to 
Equation  (3.7).  The  computations  are  necessarily  limited  to 
include  only  the  non-zero  ranges  of  the  two  input  sequences. 
Subroutine  CORREL  is  called  by  the  main  program  to  compute 
the  linear  correlation  of  the  two  input  sequences,  according 
to  Equation  (3.8).  Similar  to  CONVOL,  the  computation  is 
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limited  to  the  non-zero  ranges  of  the  input  sequences.  An 
alternate  method  of  computing  the  linear  correlation  would 
be  to  reverse  the  sequence  of  values  stored  in  xnl(n)  and 
then  to  compute  the  linear  convolution  of  the  resulting 
sequences  [Ref.  l:p.  432].  This  method  is  not  used  in  this 
algorithm. 

Appendix  H  contains  flowcharts  that  describe  the 
main  program,  as  well  as  the  subroutines  CONVOL  and  CORREL. 
The  appendix  also  includes  example  problems  that  demonstrate 
the  performance  of  CONCOR.FOR. 

9.  DIFFEO . FOR 

The  program  DIFFEQ. FOR  is  designed  to  compute  the 
iterative  solution  to  a  linear,  time- invariant  (LTI) 
difference  equation.  The  program  will  compute  the  solution 
for  up  to  four  distinct  equations,  each  of  the  form: 

y(ns)  =  a(l)*y(ns-l)  +  a(2)*y(ns-2)  +  ...  +  a(N)*y(ns-N)  + 
b(0)*x(ns)  +  b(l)*x(ns-l)  +  ...  +  b(L)*x(ns-L) 

(3.9) 

The  solution  to  each  equation  is  computed  for  values 
of  ns  in  the  range  0  <  ns  <  ns  top,  where  nstop  can  be 
assigned  any  integer  value  in  the  range  0  <  nstop  <  300. 
The  input  sequence  x(ns)  is  assumed  to  be  zero  for  values  of 
ns  less  than  zero.  The  parameter  L  corresponds  to  the 
maximum  number  of  delays  in  the  input  sequence  and  can  be 
assigned  any  integer  value  in  the  range  0  <  L  <  128. 
Similarly,  the  parameter  N  corresponds  to  the  maximum  number 


of  delays  in  the  output  sequence  and  can  be  assigned  any 
integer  value  in  the  range  0  <  N  <  128. 


To  run  the  program,  the  user  must  provide  the 
parameters  N,  L  and  nstop,  as  well  as  the  coefficients 
a(l)...a(N),  and  b(0)...b(L).  For  values  of  N  >  0,  the  user 
must  also  provide  the  initial  condition  sequence  y(-N)... 
y(-l) .  The  user  has  the  option  of  providing  the  values  of 
x(ns)  in  the  input  file  or  generating  the  sequence  through 
use  of  the  subroutine  XGEN.  All  of  the  aforementioned 
inputs  must  be  provided  for  each  difference  equation  to  be 
solved. 

The  program  consists  of  the  main  program  DIFFEQ. FOR 
and  the  subroutines  DIFFEQ  and  XGEN.  Flowcharts  of  the  main 
program  and  the  subroutine  DIFFEQ  are  provided  in  Appendix 
I.  The  program  is  a  computer  implementation  of  the 
psuedocode  algorithms  presented  in  Reference  1  [pp.  84-86]. 
Also  presented  in  Appendix  I  are  two  example  problems  that 
demonstrate  the  capabilities  of  DIFFEQ. FOR. 

10-  STATEO . FOR 

The  final  problem  solving  program  is  designed  to 
compute  the  iterative  solution  to  a  set  of  linear,  time 
invariant  state  equations.  The  state  and  output  equations 
are  assumed  to  be  of  the  form: 
v(ns+l)  =  Av(ns)  +  Bx(ns) 

(3.10) 

y(ns)  =  Cv(ns)  +  Dx(ns) 

(3.11) 
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where : 


*  x()  is  the  M  x  1  input  vector, 

*  v()  is  the  N  x  1  state  vector, 

*  y()  is  the  Q  x  1  output  vector, 

*  A  is  an  N  x  N  matrix  of  real  constants, 

*  B  is  an  N  x  M  matrix  of  real  constants, 

*  C  is  an  Q  x  N  matrix  of  real  constants  and, 

*  D  is  an  Q  x  M  matrix  of  real  constants. 

The  program  will  compute  the  solution  to  the  system 

of  equations  for  values  of  ns  in  the  range  0  <  ns  <  nstop. 

The  limits  on  the  parameters  M,  N,  Q,  and  nstop  are: 

0  <  M  <  4 
0  <  N  <  10 

0  <  Q  <  4 

0  <  nstop  <  99. 

(3.12) 

These  parameters  as  well  as  the  values  for  the  matrices  A, 
B,  C,  D,  and  the  vector  comprising  the  initial  condition  of 
the  system  (vector  v()  at  ns  =  0)  must  be  provided  by  the 
user  in  the  input  file.  The  user  can  elect  to  provide 
values  for  the  input  vector  x(ns)  in  the  input  file,  or, 
alternatively,  may  choose  to  generate  these  values  by 
writing  the  appropriate  Fortran  statements  into  subroutine 
XGEN .  The  output  of  the  program  is  the  time-history  of  the 
vector  y(ns) ;  however,  the  program  stores  all  values  of  the 
vectors  x(ns) ,  v(ns) ,  and  y(ns)  in  the  tabular  output  file 
STATEQ . OUT . 
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The  program  consists  of  the  main  program  STATEQ . FOR 
and  the  subroutines  ITRATE  and  XGEN.  The  algorithm  is  a 
Fortran  implementation  of  a  design  adapted  from  Reference  1 
[pp. 762-765] .  The  main  program  reads  the  input  parameters 
from  the  input  file  and  calls  subroutine  ITRATE  to  compute 
the  solution  to  the  state  equations.  Subroutine  XGEN  exists 
for  the  sole  purpose  of  allowing  the  user  the  option  of 
generating  the  input  sequence (s)  internally,  rather  than 
providing  the  values  in  the  input  file.  Appendix  J  includes 
the  software  flowcharts  of  the  main  program  and  the 
subroutine  ITRATE.  Also  included  in  this  appendix  are  two 
example  problems  that  demonstrate  the  capabilities  of 
STATEQ. FOR. 

B.  PLOTTING  PROGRAM 

1.  PLOTDAT . FOR  ' V 

The  sole  purpose  of  the  program  PLOTDAT. FOR  is  to 
create  2-dimensional  (2-D)  graphs  of  values  read  from  an 
input  file.  The  program  prompts  the  user  for  the  name  of 
the  input  file  and  will  create  up  to  nine  2-D  plots,  each 
consisting  of  up  to  999  data  points.  Each  plot  requires 
three  labels: 

1)  the  title  of  the  plot, 

2)  the  x-axis  label  and, 

3)  the  y-axis  label. 

For  plots  that  consist  of  more  than  25  data  points,  the 
program  displays  the  output  by  connecting  the  points  through 
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use  of  a  linear  interpolation  (straight-line)  scheme.  Plots 
of  25  points  or  less  consist  of  the  symbol  '  +  '  at  the 
tabulated  points  only.  The  number  of  data  points  comprising 
a  given  plot,  and  the  plot  labels  comprise  the  header 
information  required  for  each  plot.  In  addition  to  these 
parameters,  the  ordinate  and  abscissa  values  for  each  point 
to  be  plotted  must  be  included  in  the  input  file.  PLOT- 
DAT.FOR  reads  these  values  according  to  the  format:  fl2.0, 
2x,  f 12 . 0 .  The  first  entry  corresponds  to  the  ordinate 
value  and  the  second  entry,  the  abscissa  value.  The  F- 
format  descriptor  was  chosen  because  its  use  permits  values 
written  using  either  the  E  or  F-format  descriptors  to  be 
read  from  the  file. 

The  program  consists  of  the  main  program  PLQTDAT . FOR 
and  the  subroutines  SCALE  and  GRIDD.  The  main  program  reads 
the  input  file  and  creates  the  plots.  Subroutine  SCALE  is 
called  by  the  main  program  to  scale  the  input  values  so  as 
to  optimize  the  clarity  of  the  plots.  Subroutine  GRIDD  will 
overlay  a  dashed-line  grid  onto  the  plot  if  the  user  elects 
to  have  this  done.  PLOTDAT . FOR  requires  a  Color  Graphics 
Adapter  (CGA)  card  to  display  the  plots  on  the  monitor 
screen.  In  addition,  the  user  can  elect  to  have  a  printed 
hardcopy  of  each  plot  created.  However,  to  facilitate 
printing  of  the  graphs,  the  system  in  use  must  include  a  dot 
matrix  printer.  The  program  will  not  drive  plotters  of  all 
types.  If  the  system  has  an  Extended  Graphics  Adapter  (EGA) 
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card,  rather  than  the  specified  CGA  card,  hardcopy  printouts 
of  the  graphs  cannot  be  created  by  the  program  directly. 

The  plots  included  in  Appendices  A-J  were  created 
using  PLOTDAT . FOR .  Appendix  K  is  a  software  flowchart 
describing  the  structure  of  PLOTDAT. FOR  and  the  subroutines 
SCALE  and  GRIDD. 


IV. 


As  the  final  phase  of  this  project,  the  eleven  programs 
included  in  the  package  were  distributed  on  a  voluntary 
basis  to  students  enrolled  in  digital  signal  processing 
courses.  As  part  of  the  course  requirements,  the  students 
had  to  solve  a  variety  of  signal  processing  problems 
representative  of  the  type  that  the  programs  were  designed 
for.  Throughout  this  software  evaluation  phase,  the 
students  provided  feedback  as  to  the  utility  of  the 
programs.  While  a  majority  of  this  feedback  was  positive, 
three  areas  of  concern  warrant  attention  in  this  report. 

1.  The  graphics  capability  of  PLOTDAT . FOR  is  limited  to 
machines  with  CGA/EGA  graphics  cards. 

2.  In  order  to  get  the  most  use  out  of  the  ten  problem 
solving  programs,  the  user  must  have  access  to  a 
Fortran  compiler  capable  of  compiling  the  programs  as 
written. 

3.  Because  the  programs  are  file-driven,  the  user  must 
carefully  read  the  header  text  of  each  program  in 
order  to  execute  the  programs  successfully.  Although 
the  example  problems  in  the  header  text  and  the 
corresponding  sample  input  files  seem  to  alleviate 
some  of  the  common  formatting  errors,  new  users 
experienced  some  displeasure  with  the  format  require¬ 
ments  . 

The  first  area  of  concern,  although  valid,  is  consistent 
with  the  advertised  capabilities  of  PLOTDAT. FOR.  As 
graphics  software  becomes  more  advanced,  PLOTDAT. FOR  should 
be  updated  to  incorporate  any  changes  that  increase  the 
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portability  of  the  program.  A  caveat  to  this,  however,  is 
the  obvious  temptation  to  use  sophisticated  software 
designed  for  more  capable  machines  at  the  expense  of  its 
compatibility  with  less  capable  ones.  The  primary  goal  of 
the  plotting  program  is  portability  among  the  broadest 
possible  span  of  target  users. 

The  second  area  of  concern  is  also  somewhat  warranted. 
The  programs  were  optimally  designed  for  use  on  a  machine 
equipped  with  a  suitable  Fortran  compiler.  The  presence  of 
a  compiler  allows  the  user  to  add  source  code  to  the 
programs,  an  option  particularly  useful  in  generating  long 
sequences  of  input  data.  To  this  end,  however,  any  high 
level  language  can  be  used  to  create  the  input  files,  as 
long  as  the  required  data  can  be  stored  in  a  form  compatible 
with  the  programs.  In  brief,  any  Fortran  compiler  would  be 
suitable  for  generating  the  input  data  thus  eliminating  the 
need  for  a  specific  compiler. 

Lastly,  the  dissatisfaction  among  the  students  over  the 
file-driven  versus  menu-driven  design  of  the  programs  may 
warrant  a  future  design  change.  The  principle  concern  was 
the  rather  stringent  input  formats  required  by  the  programs. 
As  the  students  became  more  experienced  with  the  programs, 
however,  these  problems  subsided  somewhat.  Nevertheless, 
the  programs'  input  sections  can  be  restructured  to 
incorporate  the  features  of  both  the  menu  and  the  file- 
driven  designs.  As  envisioned,  in  menu-driven  mode  the 
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programs  would  prompt  the  user  for  each  input  value,  storing 
the  values  in  an  input  file  for  future  use.  This  mode, 
despite  its  time  consuming  mechanics,  would  be  attractive  to 
first-time  users  who  could  use  the  input  files  created  by 
the  programs  as  a  guide  for  subsequent  runs.  Experienced 
users  would  create  the  required  input  files  and  run  the 
programs  in  the  file-driven  mode.  This  mode  is  already 
incorporated  in  the  programs  as  they  exist.  The  redesign  of 
the  programs;  therefore,  would  only  require  incorporation  of 
a  menu-driven  mode.  Such  a  design  change  is  fully  within 
the  capabilities  of  the  Fortran  compiler  used  to  create 
these  programs. 


Two  digital  filter  designs  are  developed  in  this  section  to 
demonstrate  the  performance  of  the  program  DIGFREQ. FOR. 
An  analysis  of  the  designs  includes  a  listing  of  the  input 
required  to  execute  the  program  and  the  corresponding  output 
that  is  produced.  The  plotting  program  PLOTDAT . FOR  was 
used  to  plot  the  output  data  and  hard  copies  of  these  plots 
are  also  included.  The  software  flowchart  of  the  program  is 
included  as  the  last  pages  of  this  appendix. 

The  variable  names  listed  below  are  used  in  the  Fortran 
source  code  of  DIGFREQ.  FOR  and  in  the  corresponding 
flowcharts . 

numsys  -  The  integer  value  that  specifies  the  number  of 
distinct  filter  equations  whose  parameters  occur 
in  the  input  file. 

L  -  The  integer  value  that  specifies  the  order  of 
the  numerator  polynomial. 

N  -  The  integer  value  that  specifies  the  order  of 
the  denominator  polynomial. 

dsorce  -  The  character  string  '  F'  or  ’S'  denoting  whether 
the  system  coefficients  are  to  be  read  from  the 
input  file  (F)  or  generated  (S)  through  use  of 
the  subroutine  COEFF. 

thetaO  -  The  starting  value  of  0  (rad) . 

numpts  -  The  integer  value  that  specifies  the  desired 
number  of  frequency  points. 

yscal  -  The  character  string  'STD'  or  'LOG'  that 
specifies  whether  standard  magnitude  (STD)  or 
magnitude  expressed  in  decibels  (LOG)  is  to  be 
computed . 

b()  -  The  array  containing  the  numerator  coefficients. 
c()  -  The  array  containing  the  denominator  coeffi¬ 
cients. 

mh()  -  The  array  containing  the  magnitude  values  of 
the  computed  frequency  response. 
ph()  -  The  array  containing  the  phase  values  (degrees) 
of  the  computed  frequency  response. 


This  example  is  identical  to  the  sample  problem  found  in 
the  header  text  of  the  program.  The  system  is  a  first  order 
low-pass  filter  with  a  pole  at  z  =  0.5,  and  a  zero  at  z  =  0.0. 
The  filter  transfer  function,  in  the  form  of  Equation  (3.1)  ,  is: 

z 

H(Z)  =  -  (A.  1) 

z  -  .5 

The  goal  is  to  calculate  the  frequency  response  of  the  filter 
for  frequencies  in  the  range:  0  <  9  <  3.14159  (rad).  The 
listings  that  follow  include  the  input  file  DIGFREQ.TST 
required  to  produce  11  output  points  and  the  tabular  output 
file  DIGFREQ . OUT .  Also  included  are  plots  of  the  output  for 
101  frequency  points.  An  analysis  of  the  data  confirms  the 
low-pass  nature  of  the  filter. 

DIGFREQ.TST 

1 

001 

. 314159 

1.0 


001 

0.0 

0.0 


F 

Oil 


STD 


DIGFREO . OUT 


INPUT  DATA  FOR  SYSTEM  #  1 

INPUT  DATA  SOURCEFILE:  DIGFREQ . TST 
DEGREE  OF  NUMERATOR  =  1 

DEGREE  OF  DENOMINATOR  =  1 

dsorce  =  F 

NUMBER  OF  FREQUENCY  POINTS  -  11  MAGNITUDE  OPTION 

STARTING  VALUE  OF  THETA  =  .000000E+00 

INCREMENT  OF  THETA  =  .314159E+00 

THE  NUMERATOR  COEFFICIENTS  b (0) ,b (1) . . .b (L)  ARE: 

.1000E+01  . 0000E+00 


THE  DENOMINATOR  COEFFICIENTS  c ( 0) , C ( 1) . . . c (N)  ARE: 
. 1000E+01  - . 5000E+00 


OUTPUT  DATA  FOR  SYSTEM  #  1 


THETA 

(RADIANS) 

.  000000E+00 
•  3 14159E+00 
.  6283 18E+00 
.  942477E+00 
.  125664E+01 
.  157080E+01 
.  188495E+01 
.  219911E+01 
. 251327E+01 
.  282743E+01 
.  314159E+01 


MAGNITUDE 

.  200000E+01 
.  182897E+01 
.  150588E+01 
.  122886E+01 
. 103088E+01 
. 894428E+00 
. 800894E+00 
.  737654E+00 
.  696900E+00 
.  674038E+00 
. 666667E+00 


PHASE 

(DEGREES) 

. OOOOOOE+OO 
- . 164149E+02 
- . 262677E+02 
- . 298071E+02 
293546E+02 
- . 265651E+02 
- . 223862E+02 
173608E+02 
- . 118186E+02 
- . 597793E+01 
- . 484184E-04 


END  OF  RUN,  SYSTEM  #  1 


STD 
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Figure  A. 2  Phase  response  of  a  low-pass  filter 

Example  #1. 
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Read  L,  N,  dsorce,  yscal. 
Read  dlthta,  thetao,  numpts. 


->  Call  COEFF  to  generate 
arrays  b ( )  and  c ( ) . 


Conduct  error  checks. 


Write  input  data  into 
file:  DIGFREQ. OUT.  ) 


Mode  ? 


->  /  Write  input  data 
/  onto  monitor  screen. 


BATCH 


Write  results  to  files 
DIGFREQ.DAT  and  DIGFREQ. OUT. 


Figure  A. 3  DIGFREQ. FOR  Software  Flowchart. 


Generate  arrays  b()  and  c() 
according  to  user  provided 
algorithm. 


A  fifth-order,  low-pass  filter  is  used  in  this  appendix 
to  demonstrate  the  performance  of  the  program  ANLGFREQ. FOR. 
The  filter  transfer  function  is  in  the  form  of  Equation 
(3.2).  The  analysis  that  follows  compares  the  theoretical 
frequency  design  specifications  of  the  filter  to  the 
frequency  response  computations  produced  by  the  program * 
The  software  flowcharts  of  the  program  ANLGFREQ. FOR  and  the 
subroutine  AFRESP  are  included  as  the  last  pages  of  this 
appendix. 

The  variable  names  listed  below  are  used  in  the  Fortran 
source  code  of  the  program  and  in  the  corresponding 
flowcharts. 

numsys  -  The  integer  value  that  specifies  the  number  of 
distinct  filter  equations  whose  parameters 
occur  in  the  input  file. 

L  -  The  integer  value  that  specifies  the  order  of 
the  numerator  polynomial. 

N  -  The  integer  value  that  specifies  the  order  of 
the  denominator  polynomial . 

omegaO  -  The  starting  value  of  w  (rad/s)  for  which  the 
frequency  response  is  to  be  calculated. 

dlomga  -  The  increment  of  w  (rad/s) . 

numpts  -  The  integer  value  that  specifies  the  desired 
number  of  frequency  points. 

yscal  -  The  character  string  'STD'  or  'LOG'  that 
specifies  whether  standard  magnitude  (STD)  or 
magnitude  expressed  in  decibels  (LOG)  is  to  be 
computed . 

b()  -  The  array  containing  the  numerator  coeffi¬ 
cients. 

a()  -  The  array  containing  the  denominator  coeffi¬ 
cients  . 

mh()  -  The  array  containing  the  computed  magnitude 
value  for  each  frequency  point. 
ph()  -  The  array  containing  the  computed  phase  value 
(degrees)  for  each  frequency  point. 


A  fifth-order  Chebyshev  Low-Pass  Filter  has  the  transfer 
function: 

62268.8 

H(s) - - - 

s5  +  10.605s4  +  337.5s3  +2342.25s2  +  23236.9s  +  62268.8 

(B.  2 ) 

The  filter  was  designed  to  have  a  ripple  passband  edge 
frequency  of  w  =  15.0  (rad/s)  and  a  maximum  ripple  of  2  dB 
[Ref.  l:pp.  630-637].  The  input  file  ANLGFREQ . IN  listed 
below  provides  the  inputs  necessary  for  ANLGFREQ. FOR  to 
compute  the  magnitude  (dB)  and  phase  (Deg)  response  of  this 
filter  across  the  frequency  range:  0  £  w  <  20  (rad/s) . 

As  can  be  seen  from  both  the  tabular  output  and  the 
accompanying  plots  the  filter  specifications  have  been  met. 
The  magnitude  of  0  db  at  frequency  w  =  0  is  characteristic 
of  this  type  of  normalized  low-pass  filter.  The  edge  of  the 
ripple  passband  has  a  magnitude  of  -2  dB  at  w  *  15  (rad/s) 
and  the  2  dB  ripple  is  not  exceeded  within  the  ripple 
passband. 


1 

000  005  021  LOG 

1.0  0.0 

62268.8 

1.0 


10.605 


. 3375E03  2342.25  23236.9 


62268.8 


INPUT  DATA  FOR  SYSTEM  #  1 


INPUT  DATA  SOURCEFILE:  ANLGFREQ . IN 
DEGREE  OF  NUMERATOR  =  0 

DEGREE  OF  DENOMINATOR  =  5 

NUMBER  OF  FREQUENCY  POINTS  =  21  MAGNITUDE  OPTION  =  LOG 

STARTING  VALUE  OF  OMEGA  =  .000000E+00 

INCREMENT  OF  OMEGA  *  .100000E+01 

THE  NUMERATOR  COEFFICIENTS  b(0),b(l)...b(L)  ARE: 

. 6227E+05 


THE  DENOMINATOR  COEFFICIENTS  a (0) , a (1) . . .a (N)  ARE: 


.  1000E+01  . 1060E+02  .3375E+03  .2342E+04 

.  2324E+05  . 6227E+05 


OUTPUT  DATA  FOR  SYSTEM 


#  1 


OMEGA 

(rad/s) 

. 000000E+00 
.  100000E+01 
.  200000E+01 
.  300000E+01 
•  400000E+01 
. 500000E+01 
.  600000E+01 
. 7  00000E+01 
.  800000E+01 
.  900000E+01 
.  100000E+02 
. 110000E+02 
. 120000E+02 
. 130000E+02 
. 140000E+02 
. 150000E+02 
. 160000E+02 
. 170000E+02 
•180000E+02 
. 190000E+02 
. 200000E+02 


MAGNITUDE (dB) 

. 000000E+00 
- . 260284E+00 
- . 868081E+00 
- . 149418E+01 
- . 189199E+01 
193554E+01 
158803E+01 
-.917171E+00 
- . 196446E+00 
. 423856E-01 
— . 519360E+00 
143810E+01 
198221E+01 
158172E+01 
- . 2 16956E+00 
- . 201998E+01 
831394E+01 
140297E+02 
187218E+02 
- . 226985E+02 
- . 261739E+02 


PHASE 

(DEGREES) 

. 000000E+00 
- . 209105E+02 
— . 395377E+02 
- . 553515E+02 
691887E+02 
- . 823632E+02 
- . 963804E+02 
-.112999E+03 
- . 133940E+03 
159062E+03 
. 175548E+03 
. 153702E+03 
. 134785E+03 
. 114249E+03 
. 804525E+02 
. 233437E+02 
-.135395E+02 
300361E+02 
391769E+02 
- . 451868E+02 
- . 495617E+02 


END  OF  RUN,  SYSTEM  #1 
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Figure  B.l  Magnitude  response  of  a  Chebyshev  Low-Pass 

Filter  -  Example  #1. 
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'Open  input  file. 
Read  numsys. 


'write  results  to  files 
ANLGFREQ . OUT  and  ANLGFREQ.DAT, 


Figure  B.3  ANLGFREQ. FOR  Software  Flowchart. 


Figure  B.4  AFRESP  Subroutine  Flowchart. 


As  a  practical  exercise  to  demonstrate  the  performance 
of  DFT.FOR,  two  sample  sequences  were  generated  and  the 
program  DFT.FOR  was  used  to  compute  either  the  DFT  or  the 
IDFT  of  the  sequences.  Contained  in  this  appendix  is  a 
brief  analysis  of  the  chosen  examples  including  listings  of 
the  output  produced  by  the  program.  The  software  flowcharts 
describing  DFT.FOR  and  the  subroutines  DFT,  INVDFT,  and 
SAMPLE  are  also  included. 

The  variable  names  listed  below  are  used  in  the  Fortran 
source  code  of  the  program  and  in  the  corresponding 
flowcharts. 

N  -  The  integer  value  that  specifies  the  number  of 
complex  samples  contained  in  the  input  sequence 
xin()  . 

dsorce  -  The  character  string  ' F'  or  'S'  that  specifies 
whether  the  input  data  is  to  be  read  from  the 
input  file  (F)  or  generated  (S)  through  use  of 
the  subroutine  SAMPLE. 

option  -  The  character  string  ' DFT 1  or  ' INV 1  that 
specifies  the  computation  to  be  performed. 
xin()  -  The  complex  array  containing  the  N  samples  of 
the  input  sequence.  A  sequence  consisting  of 
only  'real'  numbers  is  stored  as  values  having 
an  'imaginary'  part  of  0.0. 

xout()  -  The  complex  array  containing  the  N  output 
values. 

xmag()  -  The  array  containing  the  N  values  of  the  output 
magnitude. 

xph()  -  The  array  containing  the  N  values  of  the  output 
phase  (Degrees) . 

wm  -  The  complex  value:  wm  =  e“327rk/N. 
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Example  #1 

For  the  first  example  problem  a  unit  ramp  sequence 
consisting  of  5  values  was  input  to  DFT.FOR.  The  goal  was 
to  compute  the  DFT  of  the  sequence.  This  example  problem  is 
also  developed  in  the  header  text  of  DFT.FOR  and  can  be  run 
by  the  user  by  selecting  Test  Mode  and  entering  '  DFT .  TST ' 
when  prompted  for  the  name  of  the  input  file.  The  listings 
that  follow  include  the  input  file  DFT. TST  and  the  tabular 
output  file  DFT. OUT. 


DFT. TST 


005 

0.0 

1.0 

2.0 

3.0 

4.0 


F 

0.0 

0.0 

0.0 

0.0 

0.0 


DFT 
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option  *  DFT 


INPUT  DATA  SOURCEFILE:  DFT.TST 
VALUE  OF  N  =  5  dsorce  =  F 


INFUT  DATA 


SAMPLE 

0 

1 

2 

3 

4 


REAL 

. 000000E+00 
.  100000E+01 
.  200000E+01 
. 300000E+01 
.  400000E+01 


IMAGINARY 
.  OOOOOOE+OO 
.  000000E+00 
.000000E+00 
.000000E+00 
.000000E+00 


OUTPUT  DATA 


SAMPLE  #  BEAL 


IMAGINARY 


MAGNITUDE 


I 

i 


0 

1 

2 

3 

4 


. 100000E+02 
-.250000E+01 
-.230000E+01 
-.2500002+01 
-.230000E+01 


.0000002+00 

.3440942+01 

.8123002+00 

-.8122992+00 

-.3440962+01 


.1000002+02 

.4253252+01 

.2628662+01 

.2628662+01 

.4253262+01 


I 


PHASE 
(DEGREES) 
.0000002+00 
.1260002+03 
.1620002+03 
-.1620002+03 
- . 126000E+03 


As  an  extension  to  the  first  example  problem  and  to 
demonstrate  the  IDFT  option,  the  DFT  results  of  the  first 
problem  were  input  to  the  program  and  the  IDFT  was  computed. 
As  one  would  expect,  the  original  unit  ramp  sequence  was 
generated  confirming  the  ability  of  the  program  to  compute 
either  the  DFT  or  its  inverse,  the  IDFT.  Numerical  roundoff 
corresponding  to  the  single  precision  accuracy  of  DFT. FOR 
accounts  for  the  slight  deviation  between  the  original  unit 
ramp  sequence  and  the  results  produced  by  this  example. 

DFT . IN 

005  F  INV 

. 10000E02  0.0 
-. 2500E01  . 344096E01 
- . 2500E01  .812300 
- . 2500E01  -.812299 
- . 2500E01  -3.44096 


DFT . OUT 


INPUT  DATA  SOURCEFILE:  DFT. IN 

VALUE  OF  N  =  5  dsorce  =  F  option  =  INV 


INPUT  DATA 


SAMPLE  # 
0 
1 
2 

3 

4 


REAL 

. 100000E+02 
— . 250000E+01 
- . 250000E+01 
-.250000E+01 
- . 250000E+01 


IMAGINARY 
. 000000E+00 
.  344096E+01 
.  812300E+00 
- .  812299E+00 
-.344096E+01 


OUTPUT  DATA 


SAMPLE 

0 

1 

2 

3 

4 


REAL 

. OOOOOOE+OO 
.999998E+00 
.200000E+01 
. 300000E+01 
.400000E+01 


IMAGINARY 

.238419E-06 
-.210175E-06 
. 136523E-06 
. 3S8854E-Q6 
.298563E-06 


MAGNITUDE 

. 2384I9E-06 
.999998E+00 
. 200000E+01 
. 300000E+01 
.  400000E+0I 


PHASE 
(DEGREES) 
.900000E+02 
-.120422E-04 
•391109E— OS 
. 685361E— OS 
.427S59E-05 


/  Open  input  file 
'Read  N,  dsorce,  o] 


ile.  / 

,  option./ 


/Read  xin()  from  file.  / 


Mode  ?. 


->/ Write  input  data 
/  onto  monitor  screen. 


BATCH 


f  Write  input  data  to  files 
D FT. OUT  and  OFT. OAT.  / 


Write  results  to  files 
D FT. OUT  and  OFT. DAT. 


Figure  C.l  DFT.FOR  Software  Flowchart 


Figure  C.2  SAMPLE  Subroutine  Flowchart. 
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Three  example  problems  are  developed  in  this  appendix  to 
demonstrate  the  program  PRDGRM . FOR .  Example  #1  is  a 
demonstration  of  the  program  using  a  short  input  sequence. 
A  listing  of  both  the  input  sequence  and  the  output  sequence 
are  included  in  the  analysis.  Examples  #2  and  3  require 
long  sequences  of  data  and  therefore  only  plots  of  the  input 
and  output  sequences  are  included.  The  software  flowchart 
of  PRDGRM. FOR  is  included  as  the  last  page  of  this  appendix. 
Since  the  flowcharts  of  the  subroutines  SAMPLE  and  DFT  were 
presented  in  Appendix  C,  they  are  not  repeated  in  this 
appendix. 

The  variable  names  listed  below  are  used  in  the  Fortran 
source  code  of  PRDGRM. FOR  and  in  the  corresponding  flow¬ 
charts  . 

N  -  The  integer  value  that  specifies  the  number  of 
complex  samples  contained  in  the  array  xn() . 
dsorce  -  The  character  string  '  F'  or  'S'  that  specifies 
whether  the  input  data  is  to  be  read  from  the 
input  file  (F)  or  generated  (S)  through  use  of 
the  subroutine  SAMPLE. 

yscal  -  The  character  string  'STD'  or  'LOG'  that 

specifies  whether  the  output  sequence  is  to  be 
expressed  as  standard  (STD)  or  decibel  (LOG) 
magnitude . 

xn()  -  The  complex  array  containing  the  N  input 
values.  A  sequence  consisting  of  only  real 
numbers  is  stored  as  values  having  an  imaginary 
part  of  0.0. 

xk()  -  The  complex  array  containing  the  DFT  sequence 
corresponding  to  xn(),  i.e.,  xk()  =  DFT [ xn ( ) ] . 

Sxx()  -  The  array  containing  the  N  values  of  the 
periodogram  sequence.  This  array  contains  the 
output  sequence  of  the  program. 


Example  #1 

Because  PRDGRM .  FOR  uses  the  DFT  algorithm  as  part  of 
the  periodogram  computation,  a  simple  demonstration  of  the 
program’s  accuracy  is  to  compare  the  results  of  PRDGRM.FOR 
to  the  results  of  DFT. FOR  using  the  same  input  sequence  for 
both  programs.  The  sequence  chosen  was  the  five  samples  of 
the  unit  ramp.  The  listings  that  follow  include  the  input  file 
PRDGRM. TST  required  to  run  this  problem,  as  well  as  the 
tabular  output  file  PRDGRM. OUT  containing  the  computed 
results.  The  DFT  results  were  presented  in  Appendix  C. 

By  comparing  the  output  sequences  of  the  two  programs  it 
is  easy  to  see  the  relationship  between  the  DFT  and  the 
periodogram  as  described  by  Equation  (3.6). 

This  example  problem  also  appears  in  the  header  text  of 
PRDGRM.FOR.  The  user  can  run  this  problem  by  selecting 
Test  Mode  and  entering  'PRDGRM. TST'  as  the  input  file  name. 

PRDGRM . TST 

005  F  STD 

0.0  0.0 

1.0  0.0 

2.0  0.0 

3.0  0.0 

4.0  0.0 


I 
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INPUT  DATA  SOURCEFILE:  PRDGRM.TST 

VALUE  OF  N  =  5  dsorce  *  F  MAGNITUDE  OPTION  =  STD 


INPUT  DATA 
xn() 

n  REAL  IMAGINARY 

0  . 0000E+00  . 0000E+00 

1  . 1000E+01  .OOOOE+OO 

2  .  . 2000E+01  .0000E+00 

3  . 3000E+01  .0000E+00 

4  . 4000E+01  .0000E+00 


OUTPUT  DATA 

k  Sxx(k) 

0  . 2000E+02 

1  . 3618E+01 

2  . 1382E+01 

3  . 1382E+01 

4  . 3618E+01 


The  performance  of  PRDGRM . FOR  can  be  evaluated  by 
computing  the  periodogram  of  the  resulting  impulse  response 
and  comparing  the  results  to  the  frequency  response  of  the 
filter.  The  frequency  response  was  computed  previously 
using  DIGFREQ .  FOR  and  a  plot  of  the  frequency  response 
appears  in  Appendix  A. 


The  subroutine  SAMPLE  was  used  to  generate  200  samples 
of  the  filter's  impulse  response.  Included  on  the  page  that 
follows  is  a  plot  of  the  log  periodogram  sequence.  The 


results  produced  by  PRDGRM. FOR  as  well  as  those  produced  by 
DIGFREQ. FOR  confirm  the  low-pass  nature  of  the  filter.  The 
disparity  of  the  plots  can  be  attributed  somewhat  to  the 
implied  rectangular  windowing  of  a  finite-length  sequence 
used  as  an  input  to  the  periodogram  algorithm.  Because  of 
this  windowing  effect,  the  use  of  the  periodogram  as  a 
spectral  estimation  technique  is  somewhat  limited. 
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Example  #  3 


As  a  final  demonstration  of  PRDGRM.FOR,  the  subroutine 
SAMPLE  was  used  to  generate  the  input  sequence  according  to 


the  equation: 


x(n)  =  2 .  Ocos  ( 27rn5  00/5000) 


(D.3) 


The  sequence  consists  of  N  =  200  samples.  Plots  of  the 
input  sequence  as  well  as  the  output  sequence  are  included 
on  the  pages  that  follow.  For  this  sequence,  the  frequency 
of  the  continuous -time  signal  is  f  =  500  Hz  and  the  sampling 
frequency  is  fs  =  5000  Hz.  Since  5000  Hz  corresponds  to  0  = 
2n  rad,  the  periodogram  should  peak  at  0  =  w/5  rad,  the 
digital  frequency  that  corresponds  to  f  *  500  Hz.  To 
demonstrate  the  ability  of  the  program  to  convert  the  output 
to  decibels,  the  input  parameter  yscal  was  assigned  the 
value:  1  LOG' . 

An  analysis  of  the  plotted  output  confirms  the  an¬ 
ticipated  results.  The  signal,  consisting  of  a  pure 
sinusoid,  has  a  digital  frequency  of  tt/5  rad  when  sampled 
at  5000  Hz.  The  plot  of  the  periodogram  remains  below  0  dB 
for  all  frequencies  except  0  =  n/5  rad. 


i 


X  lt» 


Figure  D.2  Input  sequence  x(n) 

^  Example  #3. 
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2cos (27rn500/5000)  - 
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I  Open  input  file. 

Read  H,  dsorce,  yscal. 


1 

Read  xn()  from  file. 

< - 

Call  SAMPLE  to 
generate  input :  xin ( ) 


TEST 


->  /write  input  data 
/  onto  monitor  screen. 


BATCH 


/ Write  input  data  to  files 
PRDGRM . OUT  and  PRDGRM . DAT . 


Call  DFT  to  compute  the  OFT: 
xk()  »  DFT[xn( ) ] . 


'Write  results  to  files 
PRDGRM. OUT  and  PRDGRM . DAT . 


7^ 

(end] 


Figure  D.4  PRDGRM. FOR  Software  Flowchart 


As  a  demonstration  of  the  capabilities  of  CONCORDT.FOR 
this  appendix  presents  four  example  problems.  Each  example 
problem  demonstrates  one  of  the  following  computations: 

1.  Circular  convolution. 

2.  Linear  convolution. 

3.  Circular  correlation. 

4.  Linear  correlation. 

A  brief  analysis  of  the  output  generated  by  the  program 
is  included  for  each  problem.  The  examples  that  use  short 
data  sequences  include  tabular  listings  of  the  input  and 
output  values.  The  examples  that  require  longer  sequences 
include  plots  of  the  input  and  output  sequences  as  generated 
by  PLOTDAT .  FOR .  The  last  pages  of  this  appendix  are  the 
flowcharts  of  CONCORDT.FOR  and  the  subroutine  ZEROPAD. 
Flowcharts  of  subroutines  DFT,  INVDFT ,  SAMPL1  and  SAMPL2  are 
not  included  in  this  appendix  as  they  have  been  presented 
previously. 

The  variable  names  listed  below  are  used  in  the  Fortran 
source  code  of  CONCORDT.FOR  and  in  the  corresponding 
flowcharts. 

N1  -  The  integer  value  that  specifies  the  number  of 
complex  samples  contained  in  the  input  sequence 
xnl ( ) . 

N2  -  The  integer  value  that  specifies  the  number  of 
complex  samples  contained  in  the  in^ut  sequence 
xn2 ( ) . 

dsrcel  -  The  character  string  ' F '  or  'S'  tnat  specifies 
whether  the  input  sequence  xnl()  is  to  be  read 
from  the  input  file  (F)  or  generated  (S) 
through  use  of  the  subroutine  SAMPL1. 


dsrce2  -  The  character  string  'F'  or  'S'  that  specifies 
whether  the  input  sequence  xn2 ( )  is  to  be  read 
from  the  input  file  (F)  or  generated  (S) 
through  use  of  the  subroutine  SAMPL2 . 
option  -  The  character  string  that  specifies  the 
operation  to  be  performed  as  follows: 

' LCON 1  =  Linear  convolution, 

1 LCOR 1  =  Linear  correlation, 

' CCON 1  =  Circular  convolution, 

' CCOR 1  =  Circular  correlation. 


xnl()  -  The  first  complex  input  sequence  of  length  Nl. 
xkl()  -  The  sequence  containing  the  DFT  values  of  the 
array  xnl() ,  i.e.,  xkl()  =  DFT[xnl()]. 
xn2()  -  The  second  complex  input  sequence  of  length  N2. 
xk2()  -  The  sequence  containing  the  DFT  values  of  the 
array  xn2 ( ) ,  i.e.,  xk2 ( )  =  DFT [ xn2 ( ) ] . 
xn3()  -  The  complex  output  sequence. 

xk3()  -  The  sequence  containing  the  DFT  values  of  the 
array  xn3(),  i.e.,  xk3()  =  DFT[xn3()]. 


The  circular  convolution  of  the  two  sequences:  xnl()  = 
[  1  3  5  7  ]  and  xn2()  =  [  2  4  1  8  ]  is  demonstrated  in 

this  example.  The  listings  that  follow  include  the  input 
file  CONCORDT . IN  and  the  tabular  output  file  CONCORDT . OUT . 
The  result  of  the  circular  convolution  of  these  two 


sequences  can  be  easily  verified  by  manually  performing  the 
calculations.  Manual  calculation  results  in  the  sequence 
xn3()  =  [  59  57  79  45  ].  This  compares  favorably  with 

the  computer  generated  output  sequence. 

CONCORDT. IN 

004  F 

004  F  CCON 

1.0  0.0 


INPUT  DATA  SOURCEFILE:  CONCORDT.IN 
Nl  =  4  dsrcel  =  F 

N2  =  4  dsrce2  =  F 

option  =  CCON 


INPUT  DATA 
xnl() 

n  REAL  IMAGINARY 

0  . 100000E+01  . OOOOOOE+OO 

1  . 300000E+01  . OOOOOOE+OO 

2  . 500000E+01  . OOOOOOE+OO 

3  . 7  00000E+01  .000000E+00 

xn2  () 

n  REAL  IMAGINARY 

0  . 200000E+01  .000000E+00 

1  . 400000E+01  .000000E+00 

2  . 100000E+01  .OOOOOOE+OO 

3  . 800000E+01  .OOOOOOE+OO 


OUTPUT  DATA 
xn3() 

n  REAL  IMAGINARY 

0  . 590000E+02  .190735E-05 

1  . 57  0000E+02  . 560272E-06 

2  . 790000E+02  -.855914E-05 

3  . 450000E+02  .551928E-05 


Example  #2 


The  next  operation  to  be  demonstrated  is  linear 
convolution.  For  this  operation  the  two  input  sequences 
chosen  were:  xnl()  =  [  1  2  3  4  ]  and  xn2()  =[54  3 

2  1  ].  As  in  the  first  example,  the  input  sequences  are 
short  enough  to  check  the  solution  via  manual  calculations. 
The  listings  that  follow  include  both  the  input  file 
CONCORDT .  TST ,  as  well  as  the  output  file  CONCORDT .  OUT . 
Manual  calculation  of  the  linear  convolution  results  in  the 
sequence:  xn3()  =  [  5  14  26  40  30  20  11  4  ].  The  output 

produced  by  the  program  results  in  the  same  solution. 

This  example  also  appears  in  the  header  text  of  the 
program.  The  user  can  run  this  problem  by  selecting  Test 
Mode  and  entering  * CONCORDT . TST '  as  the  name  of  the  input 
file. 


CONCORDT . TST 


004  F 

005  F  LCON 

1.0  0.0 

2.0  0.0 

3.0  0.0 

4.0  0.0 

5.0  0.0 

4.0  0.0 

3.0  0.0 

2.0  0.0 

1.0  0.0 
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INPUT  DATA  SOURCEFILE:  CONCORDT.TST 
N1  =  4  dsrcel  =  F 

N2  =  5  dsrce2  =  F 

option  =  LCON 


INPUT  DATA 


xnl() 

REAL 

.  100000E+01 
.  200000E+01 
,  300000E+01 
,  400000E+01 


IMAGINARY 

000000E+00 

000000E+00 

000000E+00 

000000E+00 


xn2  () 

REAL 

.  500000E+01 
,  400000E+01 
.  300000E+01 
.  200000E+01 
,  100000E+01 


IMAGINARY 

000000E+00 

000000E+00 

000000E+00 

OOOOOOE+OO 

000000E+00 


OUTPUT  DATA 


xn3  ( ) 

REAL 

.  500000E+01 
,  140000E+02 
,  260000E+02 
400000E+02 
,  300000E+02 
.  200000E+02 
,  110000E+02 
.  400001E+01 


IMAGINARY 
. 953*74E-06 
-.303457E-05 
-.756009E-05 
- .  404610E-05 
.  217716E-05 
.  762858E-05 
.  892130E-05 
.  472045E-05 


Using  the  same  sequences  that  were  used  in  Example  #1, 
this  example  problem  demonstrates  the  circular  correlation 
operation.  The  input  sequences  are  repeated  here  for  ease 
of  analysis:  xnl()  =  [  1  3  5  7  ]  and  xn2()  =  [  2  4  l 
8  ].  A  listing  of  the  tabular  output  file  CONCORDT.OUT  is 
included  on  the  page  that  follows.  The  result  of  performing 
the  calculations  manually  is  the  sequence  xn3()  =  [  75  61  63 
41  ] .  This  compares  favorably  with  the  solution  generated 
by  the  program. 
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INPUT  DATA  SOURCEFILE:  CONCORDT.IN 
N1  =  4  dsrcel  =  F 

N2  =  4  dsrce2  =  F 

option  =  CCOR 


INPUT  DATA 


xnl() 

REAL 

. 100000E+01 
. 300000E+01 
. 500000E+01 
. 700000E+01 

xn2  () 

REAL 

. 200000E+01 
. 400000E+01 
. 100000E+01 
. 800000E+01 


IMAGINARY 
. 000000E+00 
. OOOOOOE+OO 
. 000000E+00 
. 000000E+00 


IMAGINARY 
. 000000E+00 
. OOOOOOE+OO 
. 000000E+00 
.OOOOOOE+OO 


OUTPUT  DATA 


xn3  ( ) 

REAL 

. 750000E+02 
. 610000E+02 
. 630000E+02 


IMAGINARY 
.OOOOOOE+OO 
- . 108481E-05 
. 126364E-05 


. 410000E+02  - . 480426E-05 


This  final  example  problem  demonstrates  the  linear 

correlation  computation.  The  sequence  xnl()  consists  of  128 

samples  of  the  unit  step  function  and  the  sequence  xn2  ( ) 

consists  of  128  samples  of  a  square  wave.  The  goal  is  to 

compute  the  linear  correlation  of  the  two  sequences  i.e.,  the 

sequence:  R()  .  Plots  of  the  two  input  sequences, 

xnlxn2 

xnl()  and  xn2(),  as  well  as  the  output  sequence  R()  are 
provided  on  the  pages  that  follow.  Manual  calculation  of  the 
solution  to  this  problem  is  somewhat  impractical.  However, 
the  plotted  data  allows  the  user  to  verify  that  the  results  are 
correct  through  graphical  analysis.  The  wraparound 
phenomenon  discussed  in  Chapter  III  is  evident  from  the  plot 
of  the  output  sequence.  The  actual  non-zero  values  for  the 
linear  correlation  of  these  two  input  sequences,  as  they  are 
defined  in  this  problem,  consists  of  the  computed  output 
sequence  truncated  at  sample  n  =  127. 

The  linear  correlation  of  two  real  sequences  results  in  a 
sequence  that  is  also  real.  Figure  E.4  is  a  plot  of  the 
imaginary  part  of  the  output  sequence  for  this  example 
problem.  These  non-zero  values  result  from  the  use  of 
single-precision  computations  as  part  of  the  DFT  algorithm. 
Since  the  user  will  experience  similar  results,  the  plot  of  the 
imaginary  values  is  includes  in  this  analysis. 


x  U«* 


SEQUENCE  ml  (DEAL) 


Li 


/writ*  input  data  to  output  filaa: 
'  cowcotoT.oqT  and  cowcowOT.aaT. 


.option  *  ? 


1  lcow  or 
•Leon* 


•CCD*'  or 

•ccow* 


Call  ZrnOPAD  to  axtand 
tho  input  aoquancoo  to 
lanqtn  M3  -  Ml  ♦  Ml  -  1. 


Call  OPT  to  oaoputai 
akl()  -  OfT(anK)  ]. 


Call  OPT  to  oaoputai 
»M()  -  OPT(*nl()  ] . 


■LCOW'  or 
’CCOW 


^option  ■  7_, 


->  ror  i  -  o,  ws-i. 

~  )  — 1  „ 

|xk3(i)  -  xkl(i) *xkl(i) 


/Writ#  raaulta  to  (ilaai 
COWCOMOT.OAT  and  CONCOWT . OCT . 


Figure  E.5  CONCORDT.FOR  Software  Flowchart. 
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Figure  E.6  ZEROPAD  Subroutine  Flowchart. 
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The  program  FFT.FOR  computes  either  the  FFT  or  the  IFFT 
of  a  complex  sequence  of  input  data.  This  appendix  contains 
an  example  problem  that  demonstrates  each  of  these  computa¬ 
tions.  The  final  pages  of  this  appendix  are  the  software 
flowcharts  of  the  main  program  FFT.FOR  and  the  subroutines 
FFT,  INVFFT ,  and  REVERSAL. 

Development  of  the  FFT  algorithm  is  somewhat  involved 
and  in  any  case  beyond  the  scope  of  this  report.  However, 
in  order  to  make  the  software  flowcharts  and  corresponding 
Fortran  source  code  more  understandable,  the  following 
synopsis  pertains  to  the  FFT  algorithm  as  developed  in 
Chapter  8  of  Reference  1  and  implemented  by  this  program. 
The  variable  names  used  throughout  correspond  precisely  to 
those  presented  in  the  reference. 

The  FFT  computation  for  a  sequence  of  length  N  =  2m 
values  is  broken  up  into  m  stages.  Each  stage  consists  of 
N/2  two-point  DFT  computations  called  'butterflies'.  In  an 
effort  to  increase  the  computational  efficiency  of  the 
algorithm,  each  butterfly  occurring  within  a  given  stage  and 
requiring  use  of  the  same  weighting  factor  (W  =  e~327rr/N)  is 
computed  in  a  single  loop,  thus  eliminating  the  requirement 
to  recompute  the  weighting  factor  for  each  consecutive 
butterfly.  The  addresses  (array  indices)  of  the  two  values 
that  participate  in  a  butterfly  computation  are  assigned  the 
values:  itop  and  ibot.  The  value  corresponding  to  the 


separation  between  these  indices  is  the  value  iwidth,  i.e., 
iwidth  =  ibot  -  itop.  The  tradeoff  of  grouping  the 
butterfly  computations  by  their  weighting  factors  is  the 
determination  of  the  correct  participants  for  each  butterfly 
in  the  group.  The  program  determines  the  addresses  of  these 
participants  through  use  of  the  values  itop,  ibot  and 
iwidth.  The  efficiency  gained  by  grouping  the  butterflies 
according  to  their  weighting  factors  is  a  function  of  the 
number  of  values  (N)  comprising  the  input  sequence. 

The  listing  below  further  explains  the  function  of  the 
individual  variables  as  they  appear  in  the  software. 

m  -  The  integer  value  that  specifies  the  number  of 
complex  samples  contained  in  the  input 
sequence,  i.e.,  N  =  2m. 

dsorce  -  The  character  string  'F*  or  'S'  that  specifies 
whether  the  input  sequence  xtmp()  is  to  be  read 
from  the  input  file  (F)  or  generated  (S) 
through  use  of  the  subroutine  SAMPLE. 

option  -  The  character  string  ' FFT'  or  '  INV'  that 
specifies  the  computation  to  be  performed. 

xtmp()  -  The  complex  input  sequence  of  length  N. 

x()  -  The  array  containing  the  original  input 
sequence  but  in  bit-reversed  order.  After  the 
subroutine  FFT  or  INVFFT  is  called,  this  array 
contains  the  results  of  the  FFT/ I FFT  computa¬ 
tion  in  rectangular  form,  i.e.,  (real, 
imaginary) . 

xmag()  -  The  array  containing  the  magnitude  values  of 
the  output  sequence. 

xph()  -  The  array  containing  the  phase  (degrees)  values 
of  the  output  sequence. 

L  -  The  integer  value  corresponding  to  the  stage 
being  computed. 

iwidth  -  The  integer  value  corresponding  to  the  address 
separation  of  the  participants  in  a  butterfly 
computation. 

itop  -  The  integer  value  corresponding  to  the  array 
index  of  the  first  participant  in  a  butterfly 
computation. 


ibot  -  The  integer  value  corresponding  to  the  array 
index  of  the  second  participant  in  a  butterfly 
computation. 

ispace  -  The  integer  value  corresponding  to  the  address 
separation  between  first  participants  in 
consecutive  butterflies. 

r  -  The  value  corresponding  to  the  index  of  the 
weighting  factor. 

W  -  The  complex  weighting  factor  W  =  e“j27rr/N 
involved  in  each  butterfly  computation, 
maddr  -  The  integer  value  corresponding  to  the  original 
address  of  the  elements  of  the  input  sequence, 
newaddr  -  The  integer  value  corresponding  to  the  new 
address  assigned  as  a  result  of  the  bit- 
reversal  algorithm. 


This  example  demonstrates  both  the  FFT  and  the  IFFT 
computations.  The  input  sequence  consists  of  N  =  8  (m  =  3) 
samples  of  the  real  sequence  xtmp()  =[0123400 
0  ] .  The  imaginary  part  of  each  sample  is  assigned  the 
value  0.  Included  on  the  page  that  follows  are  listings  of 
the  input  file  FFT.TST  required  to  run  this  example  problem, 
as  well  as  the  tabular  output  file  FFT. OUT.  In  order  to 
reproduce  the  original  input  sequence,  the  FFT  results  of 
the  sequence  were  input  to  the  program  on  a  second  run  and 
the  IFFT  of  this  sequence  was  computed.  Listings  of  the 
input  and  output  files  corresponding  to  this  second  run  are 
also  included. 

This  example  problem  is  also  developed  in  the  header 
text  of  FFT. FOR  and  can  be  run  by  the  user  in  Test  Mode  by 
using  the  data  prestored  in  the  input  file  FFT.TST. 


UU  WJUaJLKJUU,MlPI«ll  um  Ummu  UW.TTS: 

FFT . TST 

3 

F 

FFT 

0.0 

0.0 

1.0 

0.0 

2.0 

0.0 

3.0 

0.0 

4.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

P  INPUT 

FFT_.  OUT 

DATA  SOURCEFILE:  FFT.TST 

Ek  VALUE 

OF  m  =  3 

VALUE  OF  N  (2**m)  =  8 

|i  dsorce  *  F  option  =  FFT 

1 

INPOT  DATA 

INPUT 

DATA 

I 

(BIT-REVERSED  ORDER)  1 

H  SAMPLE  # 

REAL 

IMAGINARY 

REAL 

IMAGINARY 

H  o 

. OOOOOOE+OO 

. OOOOOOE+OO 

.OOOOOOE+OO 

•OOOOOOE+OO 

jf||  1 

. 100000E+01 

. OOOOOOE+OO 

.  400000E+01 

•OOOOOOE+OO 

|§  2 

. 200000E+01 

.OOOOOOE+OO 

.  200000E+01 

.OOOOOOE+OO 

m  3 

. 300000E+01 

.OOOOOOE+OO 

.OOOOOOE+OO 

•OOOOOOE+OO 

i 

.400000E+01 

.OOOOOOE+OO 

. 100000E+01 

.OOOOOOE+OO 

B  5 

. 000000E+00 

.OOOOOOE+OO 

.OOOOOOE+OO 

•OOOOOOE+OO 

1  6 

. 000000E+00 

.OOOOOOE+OO 

. 300000E+01 

.OOOOOOE+OO 

9  7 

. OOOOOOE+OO 

.OOOOOOE+OO 

.OOOOOOE+OO 

.OOOOOOE+OO 

s 

9 

ft 

OUTPUT 

DATA 

;  SAMPLE  # 

REAL 

IMAGINARY 

MAGNITUDE 

PHASE 

(DEGREES) 

!  o 

. 100000E+02 

.OOOOOOE+OO 

. 100000E+02 

.OOOOOOE+OO 

-.541421E+01 

-. 482S43E+01 

. 725448E+01 

- . 138273E+03 

f  l 

. 200000E+01 

. 200000E+01 

. 28284 3E+01 

. 450000E+02 

-.253579E+01 

-. 328427E+00 

. 271S25E+01 

-. 162236E+03 

n  4 

. 200000E+01 

.OOOOOOE+OO 

. 200000E+01 

.OOOOOOE+OO 

B  5 

-.258579E+01 

. 828427E+00 

.271525E+01 

. 162236E+03 

11  6 

. 200000E+01 

-.200000E+01 

. 282843E+01 

-.450000E+02 

i 

-. 541421E+01 

. 482843E+01 

. 725448E+01 

. 138273E+03 
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FFT.IN 


3  F 

10.0  0.0 

-5.41421  -4.82843 

2.0  2.0 

-2.58579  -.828427 

2.0  0.0 

-2.58579  .828427 

2.0  -2.0 

-5.41421  4.82843 


'.OUT 


INPUT  DATA  SOURCEFILE:  FFT.IN 
VALUE  OF  in  =  3  VALUE  OF  N  (2**m) 

dsorce  =  F  option  =  INV 


SAMPLE  # 
0 
1 
2 

3 

4 

5 

6 
7 


INPOT  DATA 


REAL 

. 100000E+02 
■.541421E+01 
.  200000E+01 
••  258579E+01 
.  200000E+01 
258579E+01 
. 200000E+01 
■•541421E+01 


OUTPUT  DATA 


INPUT  DATA 
(BIT-REVERSED  ORDER) 


IMAGINARY 
. OOOOOOE+OO 
■. 482843E+01 
. 200000E+01 
■ . 828427E+00 
.000000E+00 
. 828427E+00 
-.  200000E+01 
. 482843E+01 


REAL 

.  100000E+02 
.  200000E+01 
.  200000E+01 
.  200000E+01 
.  541421E+01 
.  258579E+01 
.  258579E+01 
.  541421E+01 


IMAGINARY 
.000000E+00 
.OOOOOOE+OO 
. 200000E+01 
— .  200000E+01 
— .  482843E+01 
. 828427E+00 
— . 828427E+00 
. 482843E+01 


SAMPLE  #  REAL 


.000000E+00 
. 100000E+01 
.  200000E+01 
.  300000E+01 
.  400000E+01 
-.  172853E-05 
-.  834465E-06 
. 715256E-06 


IMAGINARY 

,  000000E+00 
.  782270E-09 
.  437114E-07 
.  218557E-07 
.OOOOOOE+OO 
.  429291E-07 
.  437114E-07 
.  218557E-07 


MAGNITUDE 

•OOOOOOE+OO 
. 100000E+01 
.  200000E+01 
. 300000E+01 
. 400000E+01 
. 172907E-05 
.  835609E— 06 
. 715590E-06 


PHASE 
(DEGREES) 
.000000E+00 
— . 448207E-07 
. 125224E-05 
. 417413E-06 
.000000E+00 
— . 178577E+03 
-. 177001E+03 
. 175021E+01 


HA 


Call  SAMPLE  to 
generate  input:  xtmp ( ) 


/Road  xtmp()  from  file./ 


>  Write  input  data 
onto  monitor  screen. 


Call  REVERSAL  to  reorder 
the  input  sequence: 
x()  <—  xtmp ( )  . 


/write  input  data  to  files: 
FFT.OUT  and  FFT. OAT. 


option  -  ? 


->  Call  INVFFT  to 
compute  the  1FFT: 
X ( )  -  IFFT[X() ] • 


Call  FFT  to  compute  the  FFT: 
X ( )  -  FFTtX()]. 


Convert  results  from  real  and 
imaginary  to  magnitude  and  phase. 


/write  results  to  files: 
FFT.OUT  and  FFT. DAT. 


Figure  F.l  FFT. FOR  Software  Flowchart. 
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1 rmndr  *  mod ( maddr , 2 ) 

newaddr  =  newaddr+lrmndr*2** (m-l-i) 

maddr  *  maddr/ 2 


x (newaddr)  =  xtmp(k) 


X  G 


The  four  computations  that  CONCORFT.FOR  is  capable  of 
performing  are  demonstrated  by  the  example  problems  included 
in  this  appendix.  CONCORFT.FOR,  like  the  other  problem 
solving  programs,  generates  an  output  file  (CONCOR.DAT)  that 
contains  a  listing  of  the  input  sequence (s),  as  well  as  the 
output  sequence  in  a  form  suitable  for  plotting.  Example  #4 
of  this  appendix  includes  plots  of  the  input  and  output 
sequences  used  for  that  problem.  The  plots  were  produced  by 
the  program  PLOTDAT . FOR .  The  final  pages  of  this  appendix 
are  a  flowchart  of  CONCORFT.FOR.  Flowcharts  of  the  six 
subroutines  called  by  CONCORFT.FOR  are  not  included  in  this 
appendix  as  each  was  presented  previously. 

The  variable  names  listed  below  are  used  in  the  Fortran 
source  code  of  CONCORFT.FOR  and  in  the  corresponding 
flowcharts. 

N1  -  The  integer  value  that  specifies  the  number  of 
complex  samples  contained  in  the  input  sequence 
xnl ( ) . 

N2  -  The  integer  value  that  specifies  the  number  of 
complex  samples  contained  in  the  input  sequence 
xn2 ( ) . 

dsrcel  -  The  character  string  'F'  or  'S'  that  specifies 
whether  the  input  sequence  xnl ( )  is  to  be  read 
from  the  input  file  (F)  or  generated  (S) 

through  use  of  the  subroutine  SAMPL1. 
dsrce2  -  The  character  string  1 F'  or  'S'  that  specifies 
whether  the  input  sequence  xn2  ( )  is  to  be  read 
from  the  input  file  (F)  or  generated  (S) 

through  use  of  the  subroutine  SAMPL2 . 
option  -  The  character  string  that  specifies  the 

operation  to  be  performed  as  follows:  , 

'LCON'  =  Linear  convolution,  i 

' LCOR 1  =  Linear  correlation,  ! 


1 CCON 1  =  Circular  convolution, 

1 CCOR 1  =  Circular  correlation. 

xnl()  -  The  first  complex  input  sequence  of  length  Nl. 
xtmpl()  -  A  dummy  array  used  for  computations  involving 
the  array  xnl() . 

xn2 ( )  -  The  second  complex  input  sequence  of  length  N2 . 
xtmp2()  -  A  dummy  array  used  for  computations  involving 
the  array  xn2 ( ) . 

xn3()  -  The  complex  output  sequence. 
xtmp3()  -  A  dummy  array  used  for  computations  involving 
the  array  xn3 ( ) . 


% 


This  example  demonstrates  the  circular  convolution 
operation.  The  input  sequences  consist  of  the  following 
real  values:  xnl()  =  [  1  3  5  7  ]  and  xn2  ( )  =  [  2  4  1 
8  ] .  The  result  of  manually  calculating  the  circular 
convolution  of  these  two  sequences  is  the  sequence:  xn3()  = 
[  59  57  79  45  ] .  The  listings  that  follow  include  the 
input  file  CONCORFT.IN,  required  to  run  this  problem,  and 
the  tabular  output  file  CONCORFT.OUT  containing  the  computed 
results.  As  can  be  seen  from  the  listing  of  CONCORFT.OUT, 
the  computation  produced  the  anticipated  results. 


COHNn  G  O  H  <n  n  GoHtMn 


N2 


4 


dsrce2 


F 


INPUT  DATA  SOURCEFILE:  CONCORFT.IN 
N1  =  4  dsrcel  =  F 

option  =  CCON 


INPUT  DATA 
xnl() 

REAL 

. 100000E+01 
. 300000E+01 
. 500000E+01 
. 7  00000E+01 

xn2  () 

REAL 

. 200000E+01 
. 400000E+01 
. 100000E+01 
. 800000E+01 


OUTPUT  DATA 
xn3  () 

REAL  IMAGINARY 

.  590000E+02  .715256E-06 

.  57 0000E+02  . 2622 68E-06 

•790000E+02  - . 7 15256E-06 

.  450000E+02  - . 262268E-06 


IMAGINARY 
.  000000E+00 
.  OOOOOOE+OO 
.  000000E+00 
.OOOOOOE+OO 


IMAGINARY 

.OOOOOOE+OO 

.OOOOOOE+OO 

.OOOOOOE+OO 

.OOOOOOE+OO 


This  example  problem  is  developed  in  the  header  text  of 
CONCORFT .  FOR  and  can  be  run  by  the  user  by  selecting  Test 
Mode  and  using  the  input  data  prestored  in  the  file 
CONCORFT .  TST .  The  goal  of  this  example  is  to  compute  the 
linear  convolution  of  the  two  sequences:  xnl()  =  [  1  11 

1  ]  and  xn2 ( )  =  [  2  2  2  2  2  ] .  The  sequence  that  should 

result  from  the  operation  is :  xn3 ()=[2  4  6  8  8  6  4 

2  ].  A  listing  of  the  input  file  CONCORFT. TST  required  to 
run  this  problem  appears  below. 


CONCORFT . TST 


004  F 

005  F  LCON 

1.0  0.0 

1.0  0.0 

1.0  0.0 

1.0  0.0 

2.0  0.0 

2.0  0.0 

2.0  0.0 

2.0  0.0 

2.0  0.0 


A  listing  of  the  tabular  output  file  CONCORFT. OUT  is 


included  on  the  page  that  follows.  The  computed  output 
sequence  compares  favorably  with  the  anticipated  result. 
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dsrce2 


INPUT  DATA  SOURCEFILE:  CONCORFT.TST 
N1  =  4  dsrcel  =  F  N2  = 

option  =  LCON 

INPUT  DATA 


n 

0 

1 

2 

3 


xnl() 

REAL 

. 100000E+01 
.  100000E+01 
. 100000E+01 
.  100000E+01 


IMAGINARY 
.  OOOOOOE+OO 
.  000000E+00 
.  OOOOCOE+OO 
.OOOOOOE+OO 


n 

0 

1 

2 

3 

4 


xn2  () 

REAL 

. 200000E+01 
. 200000E+01 
. 200000E+01 
. 200000E+01 
. 200000E+01 


IMAGINARY 
. OOOOOOE+OO 
.OOOOOOE+OO 
.OOOOOOE+OO 
.OOOOOOE+OO 
.OOOOOOE+OO 


OUTPUT  DATA 


n 

0 

1 

2 

3 

4 

5 

6 
7 


xn3  ( ) 

REAL 

. 200000E+01 
. 400000E+01 
. 600000E+01 
. 800000E+01 
.  800000E+01 
. 600000E+01 
.  400000E+01 
.  200000E+01 


IMAGINARY 
.894070E-07 
-. 421468E-07 
-.754979E-07 
- . 168587E-06 
- . 894070E-07 
. 421468E-07 
. 754979E-07 
. 168587E-06 


Using  the  same  input  sequences  as  Example  #1,  the 
circular  correlation  operation  is  demonstrated  by  this 
problem.  The  input  sequences  are:  xnl()  =  [  1  3  5  7  ] 


and  xn2()  =  [  2  4  1  8  J.  For  this  computation,  the 
anticipated  result  is  the  sequence:  xn3()  =  [  75  61  63 
41  ] .  A  listing  of  the  tabular  output  file  is  included 

below.  The  computed  output  sequence,  xn3(),  compares 
favorably  with  the  anticipated  result. 

CONCORFT . OUT 


INPUT  DATA  SOURCEFILE:  CONCORFT. IN 
N1  =  4  dsrcel  =  F  N2 

option  =  CCOR 


INPUT  DATA 


xnl  ( ) 

n 

REAL 

IMAGINARY 

0 

. 100000E+01 

•000000E+00 

1 

. 300000E+01 

. 000000E+00 

2 

. 500000E+01 

. 000000E+00 

3 

. 700000E+01 

. 000000E+00 

xn2  () 

n 

REAL 

IMAGINARY 

0 

. 200000E+01 

. 000000E+00 

1 

. 400000E+01 

. 000000E+00 

2 

. 100000E+01 

. 000000E+00 

3 

. 800000E+01 

. 000000E+00 

4  dsrce2  =  F 


i 


OUTPUT  DATA 


n 

0 

1 

2 

3 


xn3  ( ) 

REAL 

. 750000E+02 
. 610000E+02 
.  630000E+02 
.  410000E+02 


IMAGINARY 
.  000000E+00 
.  198695E-06 
.  000000E+00 
. 198695E-06 


This  example  problem  demonstrates  the  linear  correla¬ 
tion  computation.  The  sequence  xnl()  consists  of  128 
samples  of  the  unit  step  function  and  the  sequence  xn2() 
consists  of  128  samples  of  a  square  wave.  The  goal  is  to 
compute  the  linear  correlation  of  the  two  sequences,  i.e., 

the  sequence:  R()  .  Plots  of  the  two  input  sequences, 

xnlxn2 

xnl()  and  xn2(),  as  well  as  the  output  sequence  R()  are 
provided  on  the  pages  that  follow.  As  discussed  previously 
(Example  #4  of  Appendix  E) ,  wraparound  of  the  output 
sequence  is  produced  by  the  program  due  to  the  zero  padding 
required  by  use  of  the  DFT  technique.  The  wraparound 
results  in  non-zero  values  of  the  output  sequence  in  the 
interval:  128  to  254.  The  plot  of  the  output  sequence 
clearly  shows  the  wraparound  phenomenon. 

Example  #4  of  Appendix  E  also  discussed  the  non-zero 
imaginary  output  values  that  are  produced  by  the  program 
CONCORDT . FOR  when  correlating  two  real  input  sequences.  As 
exhibited  by  Figure  G.4,  CONCORFT.FOR  produces  similar 
results.  The  non-zero  values  are  attributed  to  the  single 
precision  FFT  algorithm  used  in  the  correlation  computation. 


Figure  G.2  Input  sequence  xn2(n)  -  Example  #4 


X  llH 


/writ*  input  data  to  output  filoot 
COWCORFT.OUT  aM  COPCORfT. OAT. 


option  •  ? 


■LCOR*  or 
•ICON* 


->  Call  ZniOPAO  to  oxtand 
tao  input  soquoncoo  to 
lonqtH: 

»J  -  J**l  *  Mi  *  m  -  1. 


call  Rsvnui  to  roordar  tuo 
•oquoncao  in  Oit-rovoraoO  ordori 
xtnpK)  <—  snl() 
xtnpK)  <—  ntl() . 


Call  rrt  to  oaaputat 
atnpK)  •  rrT(iitapll)  | 
xtnpao  -  rrr(xtapi()]. 


’tear  or 

•CCOP' 


*»  I  >  A  m.i 


Figure  G.5  CONCORFT.FOR  Software  Flowchart. 


The  program  CONCOR.FOR  will  compute  either  the  linear 
convolution  or  the  linear  correlation  of  two  sequences  of 
input  data,  depending  on  the  option  selected  by  the  user. 
This  appendix  includes  two  example  problems,  each  of  which 
demonstrates  one  of  these  computations.  The  last  pages  of 
this  appendix  are  the  flowcharts  that  describe  CONCOR.FOR 
and  the  subroutines  CONVOL  and  CORREL. 

The  variable  names  listed  below  are  us. id  in  the  Fortran 
source  code  of  CONCOR.FOR  and  in  the  corresponding  flow¬ 
charts  . 

option  -  The  character  string  that  specifies  the 
operation  to  be  performed  as  follows: 

•LCON'  =  Linear  convolution, 

' LCOR 1  =  Linear  correlation, 
nsl  -  The  integer  value  denoting  the  starting  point  of 
xnl ( ) . 

nel  -  The  integer  value  denoting  the  ending  point  of 
xnl() . 

dsrcel  -  The  character  string  ' F'  or  'S'  that  specifies 
whether  the  input  sequence  xnl()  is  to  be  read 
from  the  input  file  (F)  or  generated  (S)  through 
use  of  the  subroutine  SAMPL1. 
ns2  -  The  integer  value  denoting  the  starting  point  of 
xn2 ( ) . 

ne2  -  The  integer  value  denoting  the  ending  point  of 
xn2 ( ) . 

dsrce2  -  The  character  string  ' F 1  or  'S'  that  specifies 
whether  the  input  sequence  xn2 ( )  is  to  be  read 
from  the  input  file  (F)  or  generated  (S)  through 
use  of  the  subroutine  SAMPL2 . 
xnl()  -  The  first  input  sequence  of  length  N1  =  nel- 
nsl  +  1. 

xn2  ( )  -  The  second  input  sequence  of  length  N2  =  ne2- 
ns2  +  1. 

yn()  -  The  output  sequence  of  length  N3  =  N1  +  N2  -  1 
produced  if  option  =  'LCON'. 
ns3  -  The  integer  value  corresponding  to  the  starting 
point  of  the  output  sequence. 


L  A 


ne3  -  The  integer  value  corresponding  to  the  ending 
point  of  the  output  sequence. 

R()  -  The  output  sequence  of  length  N3  =  ne3  -  ns3  + 
1  produced  if  option  =  ' LCOR'. 


The  first  computation  to  be  demonstrated  is  the  linear 


convolution  of  the  two  sequences:  xnl(n)  =  [  1  1  1  1  ] 
for  -3  <  n  <  0  (nsl  =  -3,  nel  =  0)  and  xn2(n)  =[12  3 
4  5  ]  for  0  <  n  <  4  (ns2  =  0,  ne2  =  4)  .  To  run  this 
example  problem  the  input  file  CONCOR.TST  was  created.  A 
listing  of  this  file  appears  below. 


CONCOR.TST 


LCON 

-3 

0000 

1.0 

1.0 

1.0 

1.0 

1.0 

2.0 

3.0 

4.0 

5.0 


0000  F 

0004  F 


This  example  is  also  developed  in  the  header  text  of 
CONCOR.FOR  and  can  be  run  by  the  user  in  Test  Mode  by 
specifying  the  input  file  CONCOR.TST.  The  computed  output, 
as  it  appears  in  the  file  CONCOR.OUT,  is  included  on  the 
page  that  follows.  In  addition  to  the  tabulated  data,  plots 
of  the  input  and  output  sequences  are  also  included.  The 
plotting  program  PLOTDAT . FOR  will  not  attempt  to  connect  the 
plotted  values  of  sequences  consisting  of  less  than  25 
points.  Instead,  the  symbol  '  +  '  is  placed  on  the  plot  at 
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4; 

V 

,v 

'I1 

I, 

I  ' 
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the  appropriate  locations.  This  example  problem  was  chosen 
to  demonstrate  this  feature  of  PLOTDAT . FOR . 

The  result  of  manually  calculating  the  linear  convolu¬ 
tion  of  the  two  input  sequences  is  the  sequence:  yn()  =  [  1 
3  6  10  14  12  9  5  ] .  This  compares  favorably  with  the 
computer  generated  results. 


CQNCOR. OUT 


INPUT  DATA  SOURCEFILE:  CONCOR.TST 
nsl  =  -3  nel  =  0  dsrcel  =  F 

ns2  =  0  ne2  =  4  dsrce2  =  F 

option  =  LOON 


INPUT  DATA 

n  xnl(n) 

■3  . 100000E+01 

-2  . 100000E+01 

-1  . 100000E+01 

0  . 100000E+01 

n  xn2 ( n ) 

0  . 100000E+01 

1  . 200000E+01 

2  . 300000E+01 

3  . 400000E+01 

4  . 500000E+01 


OUTPUT  DATA 

n  yn(n) 

-3  . 100000E+01 

-2  . 300000E+01 

-1  . 600000E+01 

0  . 100000E+02 

1  . 140000E+02 

2  . 120000E+02 

3  . 900000E+01 

4  . 500000E+01 


)• 
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Figure  H.3  The  result  of  linear  convolution  -  Example  #1. 
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This  example  demonstrates  the  linear  correlation  option. 
The  input  sequences  chosen  are  identical  to  those  used  in 
Example  #4  of  Appendix  E.  The  input  sequence  xnl()  consists 
of  N1  =  128  values  of  the  unit  step  function,  and  the  input 
sequence  xn2()  consists  of  N2  =  128  values  of  a  square  wave. 
Plots  of  the  input  sequences,  as  well  as  the  output 
sequence,  appear  on  the  pages  that  follow.  The  results  of 
the  correlation  operation,  as  produced  by  CONCOR.FOR,  are 
similar  to  those  produced  by  CONCORDT.FOR  and  CONCORFT . FOR . 
However,  as  the  plots  indicate,  the  wraparound  phenomenon 
exhibited  previously  does  not  occur  when  the  sequences  are 
linearly  correlated  in  the  time  domain. 


Opan  input  til*. 


Road  option. 

Road  nal,  nol,  dsrcal. 
Road  na2,  na2,  dorea2 . 


Conduct  arror  chacka. 


/Road  xnl()  froa  fila./ 


Road  xn2()  f ram  fila. 


Call  SAMPL1  to 
ganarata  input:  xnl(). 


Call  SAMPL2  to 
ganarata  input:  xn2(). 


>  Writa  input  data 
onto  aonitor  acraan. 


Ml  -  nal  -  nal  ♦  1 
M2  -  na2  -  na2  ♦  1 


Mrlta  input  data  to  filaa: 
COMCOR.OOT  and  CONCOX.MT. 


na3  -  nal  ♦  l 


Call  CORRXL  to  coaputa 
linaar  corralation. 


M3  -  Ml  ♦  M3  - 


Call  COMVOL  to  coaputa 
linaar  convolution. 


_ - 

/writa  raaulta  to  filaa:  / 

/  COMCOR . DAT  and  COMCOR.OOT./ 

(*“) 

Figure  H.7  CONCOR.FOR  Software  Flowchart. 

_ _ 
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The  iterative  solution  to  an  LTI  difference  equation  is 
rather  straight-forward.  If  the  equation  consists  of  only  a 
few  terms,  several  iterations  can  be  computed  by  hand 
calculations.  A  more  complex  equation  requires  a  solution 
derived  by  an  analytical  approach  or  through  use  of  a 
recursive  algorithm.  DIFFEQ. FOR  provides  a  recursive  means 
of  computing  the  output  sequence  y(ns)  when  provided  with 
the  input  sequence  x(ns)  and  the  initial  conditions  of  the 
system.  This  appendix  includes  the  flowcharts  of  DIFFEQ. FOR 
and  the  subroutine  DIFFEQ.  Additionally,  two  example 

problems  are  developed  which  demonstrate  the  capabilities  of 
DIFFEQ. FOR. 

The  variable  names  listed  below  are  used  in  the  Fortran 
source  code  of  DIFFEQ. FOR  and  in  the  corresponding  flow¬ 
charts  . 

numsys  -  The  integer  value  that  specifies  the  number  of 
difference  equations  in  the  form  of  Equation 
(3.9)  that  are  to  be  solved.  For  each 
difference  equation,  the  input  parameters 
described  below  must  be  provided  by  the  user. 

L  -  The  integer  value  denoting  the  maximum  number 
of  delays  occurring  in  the  input  sequence  x(). 

N  -  The  integer  value  denoting  the  maximum  number 
of  delays  occurring  in  the  output  sequence  y() . 
nstop  -  The  integer  value  corresponding  to  the  largest 
tinh.  index  for  which  the  sequence  y()  is  to  be 
solved. 

xsorce  -  The  character  string  ' F'  or  'S'  that  specifies 
whether  the  input  sequence  x()  is  to  be  read 
from  the  input  file  (F)  or  generated  (S) 
through  use  of  the  subroutine  XGEN. 
b()  -  The  coefficients  of  the  input  sequence  cor¬ 
responding  to  Equation  (3.9). 


a()  -  The  coefficients  of  the  output  sequence 
corresponding  to  Equation  (3.9). 
y()  -  The  output  sequence  of  length:  N  +  nstop  +  l. 
The  initial  condition  sequence  y (-N) . . .y (-1) 
must  be  provided  by  the  user  if  N  >  0.  The 
remaining  values  in  the  sequence  y(0)...y( ns¬ 
top)  are  computed  by  the  program. 
x()  -  The  input  sequence  of  length:  nstop  +  1. 
ns  -  The  time  index  of  both  the  input  sequence  and 
the  output  sequence. 

nprob  -  The  integer  value  corresponding  to  the  dif¬ 
ference  equation  being  solved. 


Example  #1 


The  first  example  involves  the  solution  of  the  difference 


equation: 


y(ns)  =  1.2*y(ns-l)  +  1.5*x(ns) 

Given:  y(-l)  =  25.0 

x(ns)  =  100.0  for  0  <  ns  <  nstop 


(1.1) 


The  goal  is  to  compute  the  solution  to  this  difference 
equation  for  values  of  ns  in  the  range:  0  <  ns  <  10.  Listed 
below  is  the  input  file  DIFFEQ.TST  required  to  run  this 
problem: 


DIFFEQ.TST 


1 

000 
1.5 
1.2 
25.0 
inn  n 


100.0 


100.0 


Included  on  the  page  that  follows  is  a  listing  of  the 
computed  solution  as  it  appears  in  the  file  DIFFEQ.OUT.  The 
manual  computation  of  y(ns)  for  the  first  few  values  of  ns 
yields  the  sequence  y(ns)  =  [  25  180  366  589.2  ...  ].  As 
can  be  seen  from  the  tabular  output,  the  solution  was 
correctly  computed  for  these  values  of  ns.  Continuing  with  a 
more  analytical  approach,  the  solution  to  this  difference 
equation  can  be  found  for  any  value  of  ns  >  0  with  the  aid 
of  the  geometric  sum  equation.  The  solution,  after  some 
manipulation,  is: 


1.0  -  1.2ns+1 

y (ns)  -  25 . 0*1 . 2ns+1  +  150.0*  - 

-  0.2 

For  example: 


for  ns  >  0 

(1.2) 


y  (io) 


25. 0*1. 211  +  150.0* 


1.0  -  1.211 


-  0.2 


5008.315 


(1.3) 


To  an  accuracy  of  two  decimal  places  the  computed  solution 
matches  the  analytical  solution. 

This  example  problem  is  also  developed  in  the  header 


text  of  DIFFEQ .  FOR  and  can  be  run  by  the  user  in  Test  Mode 
by  using  the  prestored  data  found  in  the  input  file 
DIFFEQ. TST. 


INPUT  DATA  FOR  PROBLEM  #  1 


PROBLEM  #  1  INPUT  DATA  SOURCEFILE:  DIFFEQ.TST 
THE  NUMBER  OF  INPUT  DELAYS:  L  =  0 

THE  NUMBER  OF  OUTPUT  DELAYS:  N  =  1 

THE  VALUE  OF  nstop  IS:  10 

THE  COEFFICIENTS  b(0),  b(l),  b(L)  ARE: 

.  150000E+01 


THE  COEFFICIENTS  a(l),  a(N)  ARE: 

.  120000E+01 


OUTPUT  DATA  FOR  PROBLEM  #  1 

ns  x(ns)  y(ns) 


-1  . 000000E+00 

0  . 100000E+03 

1  . 100000E+03 

2  . 100000E+03 

3  . 100000E+03 

4  . 100000E+03 

5  . 100000E+03 

6  . 100000E+03 

7  . 100000E+03 

8  . 100000E+03 

9  . 100000E+03 

10  . 100000E+03 

-  END  OF 


. 250000E+02 
. 180000E+03 
.  366000E+03 
.  589200E+03 
.  857040E+03 
. 117845E+04 
. 156414E+04 
. 202697E+04 
. 258236E+04 
. 324883E+04 
. 404860E+04 
. 500832E+04 

PROBLEM  #  1  - 


I 

I 

I 


I 

I 

I 


This  second  example  requires  the  solution  to  the 
difference  equation: 

y(ns)  =  0.95*y(ns-l)  -  0.9025*y (ns-2)  +  x(ns)  -  .475*x(ns-l) 

(1.4) 


Given:  y(-2)  =  y(-l)  =  0.0 

x(ns)  =  l.O  for  ns  =  0 
0.0  otherwise 

The  system  described  by  this  difference  equation  corresponds 
to  the  transfer  function: 


H(z) 


y(z) 

x(z) 


1.0  -  .475*z“1 
1.0  -  0.95Z-1  +  0.9025Z-2 


(1-5) 


With  the  aid  of  the  Inverse  z-Transform  Formula,  the 
analytical  solution  of  this  example  problem  is  found  to  be: 


y(ns)  =  0.95ns  *  cos (?r*ns/3 . 0) 


for  ns  >  0 

(1.6) 


The  next  page  of  this  appendix  is  a  plot  of  the  output 
sequence  for  values  of  ns  in  the  range:  0  <  ns  <  80.  The 


plot  clearly  shows  both  the  decaying  envelope  of  the 
sequence,  as  well  as  the  constant  frequency  sinusoid. 


V* 


I»»  -  *• 


I Op«n  input  fil«. 
Read  nunsys .  / 


For  nprob  -  l.nstop. 


Read  L,  N,  nstop,  xaorce 


Conduct  error  checks. 


For  k  -  C 
Read  b(k) 


For  k  »  I 
Read  a(k) 


For  k  -  - 
Read  y(ne) 


dT^xsorce  -  — 

Y  - 

- >  Call  XGEH 

to 

generate 

input:  x(). 

Read  x()  froe  (He. 


■ode 

BATCH 


->  Write  input  data 
onto  monitor  screen. 


Write  results  to  files: 
DIFFEQ.DAT  and  DIFFEQ.OWT 


Figure  1.2  DIFFEQ. FOR  Software  Flowchart. 
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Included  in  this  appendix  are  two  example  problems  that 
demonstrate  the  capabilities  of  the  program  STATEQ. FOR. 
The  final  pages  of  this  appendix  are  the  software  flowcharts 
of  the  main  program  STATEQ. FOR  and  the  subroutine  ITRATE. 
Listed  below  are  the  names  of  the  variables  used  throughout 


the  flowcharts  and  the  corresponding  Fortran  source  code. 


N  - 
M  - 
Q  - 
nstop  - 

xsorce  - 

A  - 
B  - 
C  - 
D  - 

v()  - 

ns  - 
xs(i,ns)  - 

vs(i,ns)  - 

ys ( i , ns)  - 


An  integer  value  that  specifies  the  number  of 
system  states . 

An  integer  value  that  specifies  the  number  of 
system  inputs. 

An  integer  value  that  specifies  the  number  of 
system  outputs. 

The  integer  value  corresponding  to  the  largest 
time  index  for  which  the  system  of  state 
equations  is  to  be  solved. 

The  character  string  ' F'  or  'S'  that  specifies 
whether  the  input  sequence  xs()  is  to  be  read 
from  the  input  file  (F)  or  generated  (S) 
through  use  of  the  subroutine  XGEN. 

An  N  x  N  matrix  of  state  coefficients  as  they 
occur  in  Equation  (3.10). 

An  N  x  M  matrix  of  input  coefficients  as  they 
occur  in  Equation  (3.10). 

A  Q  x  N  matrix  of  output  coefficients  as  they 
occur  in  Equation  (3.11). 

A  Q  x  M  matrix  of  input  coefficients  as  they 
occur  in  Equation  (3.11). 

An  N  x  1  vector  consisting  of  values  that 
describe  the  initial  condition  of  the  system. 

An  integer  value  denoting  the  time  index. 

An  M  x  (nstop+1)  array  consisting  of  the  input 
sequence (s).  The  index  i  denotes  the  input 
number  (1,  . . . ,  M) ,  and  the  index  ns  denotes  the 
sample  number  (0,  1,  ...,  nstop).  . 

An  N  x  (nstop+1)  array  consisting  of  the 
state (s)  of  the  system.  The  index  i  denotes  the 
state  (1,  ...,  Q) ,  and  the  index  ns  denotes  the 
sample  number  (0,  1,  ...,  nstop). 

A  Q  x  (nstop+1)  array  consisting  of  the  output 
sequence (s) .  The  index  i  denotes  the  output 
number  (1,  . ..,  Q) ,  and  the  index  ns  denotes  the 
sample  number  (0,  1,  ...,  nstop). 


xi  -  A  dummy  variable  that  stores  the  weighted 
cumulative  contribution  of  the  input  sequen¬ 
ce  (s)  for  each  value  of  ns. 


1 


This  first  example  problem  demonstrates  the  iterative 


solution  to  the  state  equations: 


v(ns+l)  = 

0.0 

-1.0 

v(ns)  + 

1.0 

1.0 

0.0 

0.0 

y(ns)  =  [  1.0  -1.0  ]  v(ns)  +  [  1.0  ]  x 


x(ns) 


(ns) 


The  initial  condition  vector  is: 


v(0) 


5.0 

-5.0 


The  input  vector  is: 

x(ns)  =  [  10.0  ]  for  0  <  ns  <  3 


(J.l) 

(J.2) 

(J.3) 

( J  •  4 ) 


The  goal  of  this  problem  is  to  compute  the  solution  to  the 
given  system  of  equations  for  values  of  ns  in  the  range:  0  < 
ns  <  3.  This  example  problem  also  appears  in  the  header 
text  of  STATEQ .  FOR  and  can  be  run  by  the  user  in  Test 
Mode  by  using  the  input  data  prestored  in  the  file 
STATEQ. TST.  A  listing  of  STATEQ. TST  appears  below. 


STATEQ . TST 


02 

03 

0.0 

1.0 

1.0 

0.0 

1.0 

1.0 

5.0 

10.0 

10.0 

10.0 

10.0 


1 

F 

-1.0 

0.0 


-1.0 


-5.0 


Manual  calculation  of  the  solution  to  this  problem  yields 


the  following  sequences: 


vl (ns)  =  [  5.0  15.0  5.0  -5.0  ] 


(J.5) 


v2 (ns)  =[-5.0  5.0  15.0  5.0] 


(J.6) 


yl(ns)  =  [  20.0  20.0  0.0  0.0  ] 


(J.7) 


A  listing  of  the  tabular  output  file  STATEQ. OUT  follows.  As 


the  tabular  output  indicates,  the  sequences  were  correctly 


computed  over  the  specified  range  of  ns. 


INPUT  PARAMETERS 


INPUT  DATA  SOURCE  FILE:  STATEQ.TST 
THE  NUMBER  OF  STATES  IS:  N  =  2 

THE  NUMBER  OF  SYSTEM  INPUTS  IS:  M  =  1 
THE  NUMBER  OF  SYSTEM  OUTPUTS  IS:  Q  -  1 
THE  VALUE  OF  nstop  IS:  nstop  =  3 

THE  VALUE  FOR  xsorce  IS:  F 


THE  MATRIX 

.OOOOE+OO 
. 1000E+01 

THE  MATRIX 

. 1000E+01 
.0000E+00 

THE  MATRIX 
. 1000E+01 

THE  MATRIX 
. 1000E+01 


A(i,j)  IS: 

-.1000E+01 

•OOOOE+OO 

B(i, j )  IS: 

C(i,j)  IS: 
1000E+01 

D(i,j)  IS: 


] 


THE  INITIAL  CONDITION  OF  THE  STATE  VECTOR  IS: 

vl  =  . 500000E+01 

v2  =  - . 500000E+01 


OUTPUT  DATA 


FOR  ns  =  0  THE  STATE  OF  THE  SYSTEM  IS: 

THE  VECTOR  X  is: 

Xl  =  . 100000E+02 

THE  VECTOR  V  is: 

Vl  =  . 500000E+01 

v2  =  - . 500000E+01 
THE  VECTOR  y  is: 
yl  =  .200000E+02 

FOR  ns  =  1  THE  STATE  OF  THE  SYSTEM  IS: 

THE  VECTOR  x  is: 

Xl  =  . 100000E+02 

THE  VECTOR  V  is: 

Vl  =  . 150000E+02 

v2  =  . 500000E+01 

THE  VECTOR  y  is: 
yl  =  . 200000E+02 

FOR  ns  =  2  THE  STATE  OF  THE  SYSTEM  IS: 

THE  VECTOR  X  is: 

xl  =  .100000E+02 

THE  VECTOR  v  is: 
vl  =  . 500000E+01 

v2  =  . 150000E+02 

THE  VECTOR  y  is: 
yl  =  . OOOQOOE+OO 

FOR  ns  =  3  THE  STATE  OF  THE  SYSTEM  IS: 

THE  VECTOR  x  is: 

Xl  =  . 100000E+02 

THE  VECTOR  v  is: 
vl  =  - . 500000E+01 
v2  =  . 500000E+01 

THE  VECTOR  y  is: 
yl  =  . 000000E+00 


i  «.»:***  1*1 


;  tu  wwvram'rawrc 


Example  #2 


A  low-pass  filter  having  a  zero  at  z  =  -1.0  and  poles  at 
z  =  .95,  .95e“j7r/6,  .95e+j7r/6  has  the  transfer  function: 


H  ( z )  = 


z  +  1 

:3  -  2 . 5954 z2  +  2.4657Z  -  .8574 


(J.8) 


A  state-matrix  representation  of  this  system  is: 


v(ns+l)  = 


0.0  1.0  0.0 
0.0  0.0  1.0 
0.8574  -2.4657  2.5954 


v(ns)  + 


0  0  0 

000  x(ns) 
111 

(J.9) 


y (ns)  -  [  1.0  1.0  0.0  ]  v(ns)  +  [000]  x(ns) 


The  inputs  to  the  system  are  the  three  sequences: 
xl(ns)  =  10.0*u(ns) 


x2(ns)  =  2*cos (r*ns/6) *u (ns) 


x3(ns)  =  2*cos(7r*ns/2)  *u(ns) 


The  initial  condition  of  the  system  is  the  vector: 


(J. 10) 


(J.ll) 


(J. 12) 


( J . 13 ) 


v()  =  0 

0 

( J . 14 ) 

To  solve  this  problem,  the  input  file  STATEQ . IN  was  created. 
A  listing  of  this  file  appears  below.  Plots  of  the 
sequences  xl(ns),  x2(ns),  x3(ns),  vl(ns),  v2(ns),  v3(ns), 

and  yl(ns)  are  included  on  the  pages  that  follow.  The 


143 


sequences  were  computed  for  100  values  of  ns  (nstop  =  99)  . 
Because  of  the  lengths  of  the  input  sequences,  all  three 
input  sequences  were  generated  through  use  of  the  subroutine 


XGEN. 


As  the  plots  indicate,  the  filter  amplifies  the  low 
frequency  inputs  xl  and  x2 ,  but  attenuates  the  high 
frequency  input  x3 . 


STATEO . IN 


03 

3 

1 

99 

S 

0.0 

1.0 

0.0 

0.0 

0.0 

1.0 

0.8574 

-2.4657 

2.5954 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

1.0 

1.0 

1.0 

1.0 

1.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

y 

*»* 

v 

8 


rcri 

m 


uu 


#*0f  X 
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oj 


Sc 


Figure  j.2 


Input  sequence  x2(ns) 


146 


Example  #2. 


Figure  J.5  State  sequence  v2(ns)  -  Example  #2. 
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Figure  J.6  State  sequence  v3(ns)  -  Example  #2. 


Figure  J.8  STATEQ . FOR  Software  Flowchart 


The  software  flowcharts  describing  the  program  PLOT- 
DAT.FOR  and  the  subroutines  SCALE  and  GRIDD  are  included  in 


this  appendix.  Listed  below  are  the  variable  names  used  in 
the  flowcharts  and  the  corresponding  Fortran  source  code. 


xmax  -  The  maximum  ordinate  value  read  from  the  data 
for  each  plot. 

xmin  -  The  minimum  ordinate  value  read  from  the  data 
for  each  plot. 

ymax  -  The  maximum  abscissa  value  read  from  the  data 
for  each  plot. 

ymin  -  The  minimum  abscissa  value  read  from  the  data 
for  each  plot. 

valmax  -  A  dummy  variable  passed  to  subroutine  SCALE 
containing  the  maximum  value  of  an  array  to  be 
scaled  (i.e.,  xmax  or  ymax). 

valmin  -  A  dummy  variable  passed  to  subroutine  SCALE 
containing  the  minimum  value  of  an  array  to  be 
scaled  (i.e.,  xmin  or  ymin). 

iscal  -  An  integer  value  that  contains  the  scaling 
value  determined  by  subroutine  SCALE, 
numplts  -  The  integer  value  that  specifies  the  number  of 
plots  to  be  created.  For  each  plot,  the 
parameters  listed  below  must  occur  in  the  input 
file. 

numpts  -  The  integer  value  that  specifies  the  number  of 
data  points  to  be  read  from  the  input  file  for 
the  given  plot. 

title  -  The  character  string  consisting  of  up  to  40 
characters  that  comprise  the  title  of  the 
graph . 

xlabl  -  The  character  string  consisting  of  up  to  14 
characters  that  comprise  the  label  for  the  x- 
axis  of  the  graph. 

ylabl  -  The  character  string  consisting  of  up  to  14 
characters  that  comprise  the  label  for  the  y- 
axis  of  the  graph. 

x()  -  The  array  containing  the  ordinate  values  read 
from  the  input  file. 


y()  -  The  array  containing  the  abscissa  values  read 
from  the  input  file.  Each  ordinate,  abscissa 
pair  corresponds  to  one  point  to  be  plotted  by 
the  program. 


i  Mi  *<-•* 


*>al  «aV  t  v«f  ’.ft  'i*  ‘#1  ’ 


Doaa  user  require 
hardcopy  ? 
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Figure  K.l  PLOTDAT . FOR  Software  Flowchart. 


I 


iscal  =  The  largest  integer  power  of  10 
occuring  in  the  input  array. 


valmin  =  valmin/ { 10**iscal) 
valmax  =  valmax/ ( 10**iscal) 


Axis  being  scaled  ? 


Figure  K.3  SCALE  Subroutine  Flowchart 
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C 
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C 
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C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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DIGFREQ.FOR 


IKES  PROGRAM  COMEUTES  THE  FREQUENCY  RESPONSE  OF 
DISCRETE  SYSTEMS.  THE  PROGRAM  CONSISTS  OF  A  MAIN 
PROGRAM  THAT  CONTRQIS  THE  INPUT/OUTPUT  AND  THE 
SUBROUTINES  dfresp  AND  coeff.  SUBROUTINE  dfresp 
COMPOTES  THE  FREQUENCY  RESPONSE  OF  EACH  SYSTEM. 
SUBROUTINE  coeff  ALLOWS  THE  USER  THE  OPTION  OF 
GENERATING  THE  FILTER  OOEFFICIENIS  OF  THE  SYSTEMS 
TO  BE  ANALYZED  BY  WRITING  THE  APPROPRIATE  EQUATIONS. 

IF  THE  USER  ELECTS  TO  GENERATE  THE  COEFFICIENTS  BY 
USING  THE  SUBROUTINE  coeff,  THE  EQUATIONS  MUST  BE 
WRITTEN  INTO  THE  SUBROUTINE  USING  STANDARD  FORTRAN  77 
STATEMENTS.  IKE  COEFFICIENTS  MUST  BE  STORED  IN  THE 
ARRAYS  b()  AND  c()  WHICH  CORRESPOND  RESPECTIVELY  TO  THE 
NUMERATOR  AND  DENOMINATOR  TERMS  OF  THE  SYSTEM  EQUATION. 
THE  USER  CAN  SELECT  ONE  OF  TWO  OPERATING  MODES:  BATCH 
OR  TEST.  IN  BATCH  MODE  THE  AMOUNT  OF  INTERFACE  WITH 
THE  USER  IS  MINIMIZED  AND  IT  IS  ASSUMED  THAT  THE  INPUT 
DATA  HAS  BEEN  STORED  IN  THE  DEFAULT  FILE  '  DIGFREQ .  IN 1 . 
IN  TEST  MODE  THE  USER  IS  PROMPTED  FOR  THE  NAME  OF  THE 
INPUT  FILE  OR  HAS  THE  OPTION  TO  PERFORM  A  TRIAL  RUN  BY 
USING  THE  INPUT  DATA  STORED  IN  THE  FILE  '  DIGFREQ. TST' . 
IT  IS  RECOMMENDED  THAT  FIRST-TIME  USERS  SELECT  THE  TEST 
MODE  AND  MAKE  A  TRIAL  RUN  WITH  THE  PRESTORED  INPUT  DATA. 
THE  TEST  MODE  ECHOES  THE  INPUT  DATA  ONTO  THE  MONITOR  TO 
ALLOW  VERIFICATION  OF  ITS  ACCURACY.  THIS  PROGRAM  WILL 
COMPUTE  THE  FREQUENCY  RESPONSE  OF  UP  TO  THREE  SYSTEMS. 
FOR  EACH  SYSTEM,  THE  USER  HAS  THE  OPTION  OF  HAVING  THE 
OUTPUT  EXPRESSED  IN  DECIBELS  (dB)  .  THE  OUTPUT  OF  THIS 
PROGRAM  IS  STORED  IN  TABULAR  FORM  IN  THE  FILE 
'DIGFREQ. OUT'  AND  IN  A  FORM  SUITABLE  FOR  PLOTTING 
IN  THE  FILE  '  DIGFREQ .  DAT '  . 


C******************************  INPUT  ******************************** 


C 

C  THIS  PROGRAM  ASSUMES  THAT  EACH  DISCRETE  SYSTEM  IS  MODELED  BY  THE 
C  EQUATION:  H(z)  =  nun/den  WHERE: 

C 

C  num  =  b(0) *z**L  +  b(l) *z**(L-l)  +  ...  +  b(L-l)*z  +  b(L) 

C 

C  den  =  c(0) *z**N  +  c(l) *z**(N-l)  +  ...  +  c(N-l)*z  +  c(N) 

C 

C  L  =  A  NON-NEGATIVE  INTEGER,  THE  DEGREE  OF  THE  NUMERATOR 
C  POLYNOMIAL. 


C  N  =  A  NON-NEGATIVE  INTEGER,  THE  DEGREE  OF  THE  DENOMINATOR 
C  POLYNOMIAL. 

C  b(O) . .  ,b(L)  =  REAL  COEFFICIENTS  OF  THE  NUMERATOR  TEFMS. 

C  C(O) . .  .C(N)  =  REAL  COEFFICIENTS  OF  THE  DENOMINATOR  TEFMS. 

C 

C  THE  INPUT  PARAMETERS  SHOULD  BE  STORED  IN  A  FILE  NAMED 
C  ,DIGFREQ.IN, .  ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS  PROGRAM 
C  REQUIRE  FORMATTED  INPUT.  PARTICUIAR  ATTENTION  SHOULD  BE  PAID 
C  TO  THE  FORMATS,  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT  TO 
C  DENOTE  'REAL'  NUMBERS.  THE  INPUT  PARAMETERS  REQUIRED  BY  THE 
C  PROGRAM  ARE  LISTED  BEICW. 

C 

C 


c 

n 

NAME 

TYPE 

RANGE  (ARRAYS) 

RESTRICTIONS 

V- 

C 

numsys 

INTEGER 

1  <=  numsys  <=  3 

c 

L 

INTEGER 

0  <=  L  <=  128 

c 

N 

INTEGER 

0  <=  N  <=  128 

c 

dsorce 

CHARACTER 

•F'  OR  'S' 

c 

yscal 

CHARACTER 

'STD*  OR  'ICG' 

C 

thetaO 

REAL 

C 

dlthta 

REAL 

c 

numpts 

INTEGER 

1  <=  numpts  <=  101 

c 

b() 

REAL 

0,  1 t  2,  • • • f  L 

0  <=  L  <=  128 

c 

c 

c() 

REAL 

0,  1,  2,  . . . ,  N 

0  <=  N  <=  128 

v_ 

c 

WHERE: 

c 

numsys  = 

THE  NUMBER  OF  DISTINCT  SYSTEMS  H(Z) 

TO  BE  ANALYZED. 

C  THIS  INTEGER  VALUE  MUST  OCCUR  AT  THE  TOP  OF  THE  INPUT 

C  FILE.  IT  DELINEATES  THE  NUMBER  OF  SYSTEMS  TO  BE  READ  BY 

C  THE  PROGRAM  AND  ANALYZED.  FOR  EACH  SYSTEM  (1,  ...,  numsys) 

C  THE  PARAMETERS  BEICW  MUST  APPEAR  IN  THE  INPUT  FILE. 

C 

C  L  =  AN  INTEGER  VALUE  SPECIFYING  THE  DEGREE  OF  THE  NUMERATOR 
C  POLYNOMIAL. 

C 

C  N  =  AN  INTEGER  VALUE  SPECIFYING  THE  DEGREE  OF  THE  DENOMINATOR 
C  POLYNOMIAL. 

C 

C  dsorce  =  THE  CHARACTER  STRING  'F'  OR  'S'  DENOTING  WHETHER  THE 
C  SYSTEM  COEFFICIENTS  ARE  TO  BE  READ  FROM  THE  INPUT  FILE  (F) 

C  OR  GENERATED  (S)  THROUGH  USE  OF  THE  SUBROUTINE  coeff. 

C 

C  yscal  =  A  CHARACTER  STRING  SPECIFYING  THE  DESIRED  MAGNITUDE  OPTION: 
C  'STD'  WILL  PRODUCE  STANDARD  MAGNITUDE  OUTPUT; 

C  'ICG'  WILL  PRODUCE  MAGNITUDE  EXPRESSED  IN  DECIBEIS  (dB)  . 

C 

C  thetaO  =  THE  STARTING  VALUE  OF  THETA  (RAD)  AS  IN  Z=EXP(J*THETA)  . 

C 

C  dlthta  =  THE  INCREMENT  OF  THETA  (RADIANS)  . 

C 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


numpts  =  THE  NUMBER  OF  FREQUENCY  POINTS  FOR  WHICH  THE  OUTFUT  IS 
TO  BE  COMPUTED. 

b()  =  THE  NUMERATOR  COEFFICIENTS  IN  ORDER  b(0) ,  b(l) ,  . . . ,  b(L)  . 

IF  dsorce  =  'F'  IS  SELECTED  THEN  THE  USER  MUST  SUPPLY  THE 
Lfl  NUMERATOR  COEFFIdENIS  IN  THE  FILE.  IF  dsorce  =  'S' 

THEN  THE  USER  HAS  ELECTED  TO  GENERATE  THE  NUMERATOR 
COEFFICIENTS  BY  WRITING  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  THE  SPACE  PROVIDED  IN  SUBROUTINE  coeff.  IF  THIS  METHOD 
OF  DATA  GENERATION  IS  EIECIED  THE  PROGRAM  MUST  BE  RECOMPILED 
BEFORE  EXECUTION. 

c( )  =  THE  DENOMINATOR  COEFFICIENTS  IN  ORDER  c(0)  ,  C(l)  ,  C(N)  . 

IF  dsorce  =  'F'  IS  SELECTED  THEN  THE  USER  MUST  SUPPLY  THE 
N+l  DENOMINATOR  COEFFICIENTS  IN  THE  FIIE.  IF  dsorce  =  'S' 
THEN  THE  USER  HAS  ELECTED  TO  GENERATE  THE  DENOMINATOR 
COEFFICIENTS  BY  WRITING  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  THE  SPACE  PROVIDED  IN  SUBROUTINE  coeff.  IF  THIS  METHOD 
OF  DATA  GENERATION  IS  ELECTED  THE  FROGRAM  MUST  BE  RECOMPILED 
BEFORE  EXECUTION. 


NOTE:  THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN  PROGRAM 

FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********. 
THE  FORM  OF  THE  INPUT  DATA  FIIE  IS: 


LINE  # 


ENTRIES 


FORMAT 


1 

2 

3 

NOTE  1 
NOTE  2 
NOTE  3 


numsys 

L,N, dsorce, yscal 
dlthta , thetaO , numpts 
b (k) r  k — 0 ,1, . . .  ,L 
c(k) ,  k=0,l, . . .  ,N 


il 

i3,tll, i3,t21,al,t31,a3 
2flO.O,i3 
6fl0.0 
6f 10 . 0 


WHERE: 


NN  =  1  +  (1/6  ROUNDED  DOWN  TO  THE  NEXT  SMALLER  INTEGER)  . 
ND  =  1  +  (N/6  ROUNDED  DOWN  TO  THE  NEXT  SMALLER  INTEGER)  . 


NOTES  1.  THE  NEXT  NN  LINES  ARE  ONLY  REQUIRED  IF  dsorce  =  'F' .  IF 
dsorce  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE  THE 
Lrf-1  NUMERATOR  COEFFICIENTS  IN  THE  SUBROUTINE  coeff. 

THE  USER  MUST  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  SUBROUTINE  coeff  TO  GENERATE  THE  VALUES  FOR  b()  . 


2.  THE  NEXT  ND  LINES  ARE  ONLY  REQUIRED  IF  dsorce  =  'F' .  IF 
dsorce  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE  THE 
N+l  DENOMINATOR  COEFFICIENTS  IN  THE  SUBROUTINE  coeff. 

THE  USER  MUST  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  SUBROUTINE  coeff  TO  GENERATE  THE  VALUES  FOR  c()  . 


3.  FOR  numsys  >  1  THE  FORMAT  OF  LINES  2. . . 


IS  REPEATED 


C  4.  THE  FORMAT  flO.O  USED  FOR  INFUT  DATA  PERMITS  THE  DECIMAL 

C  POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  10  COLUMNS 

C  AND  AISO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE  USED  (EG. 

C  3146.2  =  3. 1462E+03) . 

C 

C 

C******************************  OUTPUT  ******************************* 
C 

C  THE  OUTPUT  DATA  CREATED  BY  THE  PROGRAM  IS  STORED  IN  TABULAR  FORM 
C  IN  THE  FILE  'DIGFREQ.OUT' .  ADDITIONALLY,  THE  OUTPUT  DATA  IS 
C  WRITTEN  INTO  THE  FILE  'DIGFREQ.DAT'  TO  FACILITATE  PLOTTING  BY 
C  A  SEPARATE,  USER  SUPPLIED  PROGRAM.  THE  FORMAT  OF  THE  DATA  IN 
C  'DIGFREQ.DAT'  IS:  el2.6,  2x,  el2.6.  THE  FIRST  ENTRY  CORRESPONDS 
C  TO  THE  ORDINATE  VALUE  (THETA)  AND  THE  SECOND  ENTRY  THE  ABSCISSA 
C  VALUE  (MAGNITUDE  OR  PHASE)  .  ADDITIONAL  HEADER  INFORMATION  IS 
C  WRITTEN  INTO  THE  DATA  FILE  TO  ALLOW  FOR  CONTROL  AND  LABELING  OF 
C  EACH  PLOT. 

C 

C 

C******************************  EXAMPLE  ****************************** 
C 

C  THE  INPUT  PARAMETERS  FOR  THE  SYSTEM  DESCRIBED  BELOW  ARE  STORED  IN 
C  THE  SAMPLE  INPUT  FILE  'DIGFREQ.TST'  AND  CAN  BE  USED  FOR  A  TRIAL 
C  RUN  IN  THE  TEST  MODE. 

C 

C 

C  SYSTEM:  H(z)=z/(z-0.5) 

C 

C  GOAL:  TO  OBTAIN  THE  FREQUENCY  RESPONSE  FOR  THIS  SYSTEM  FROM 

C  THETA  =  0.0  TO  THETA  =  3.14159  (PI  RADIANS)  IN  STEPS 

C  OF  dlthta  =  PI/10.0 

C 

C  FOR  THE  SYSTEM  DESCRIBED  ABOVE  THE  INPUT  FILE  IS: 

C 

C  1 


c 

001 

001 

F 

STD 

c 

0.314159 

0.0 

Oil 

c 

1.0 

0.0 

c 

1.0 

-0.5 

C 

C 

C  THE  RESULTING  OUTPUT  DATA  FILE:  'DIGFREQ.OUT'  IS: 

C 

C  INPUT  DATA  FOR  SYSTEM  #  1 

C 

C  INPUT  DATA  SOURCEFIIE:  DIGFREQ.TST 
C  DEGREE  OF  NUMERATOR  =  1 

C  DEGREE  OF  DENOMINATOR  =  1 

C  dsorce  =  F 

C  NUMBER  OF  FREQUENCY  POINTS  =  11  MAGNITUDE  OPTION  =  STD 

C  STARTING  VALUE  OF  THETA  =  .000000E+00 

C  INCREMENT  OF  THETA  =  .314159E+00 


c 

C  THE  NUMERATOR  COEFFICIENTS  b(0)  ,b(l) . .  .b(L)  ARE 
C 

C  . lOOOE+Ol  . OOOOE+OO 

C 

C 

C  THE  DENCMINATOR  COEFFICIENTS  c(0)  ,C(1)  ...C(N)  ARE 
C 

C  . lOOOE+Ol  -.5000E+00 

C 

C 

C  OUTPUT  DATA  FOR  SYSTEM  #  1 

C 


c 

THETA 

MAGNITUDE 

PHASE 

c 

r> 

(RADIANS) 

(DEGREES) 

c 

. 000000E+00 

. 200000E+01 

. OOOOOOE+OO 

c 

. 314159E+00 

. 182897E+01 

-.164149E+02 

c 

. 628318E+00 

. 150588E+01 

-.262677E+02 

c 

. 942477E+00 

. 122886E+01 

-.29807E+02 

c 

. 125664E+01 

. 103088E+01 

-. 29354 6E+02 

c 

.157080E+01 

. 894428E+00 

-.265651E+02 

c 

. 188495E+01 

. 800894E+00 

-.223862E+02 

c 

•219911E+01 

•737654E+00 

173608E+02 

c 

. 251327E+01 

. 696900E+00 

-. 118186E+02 

c 

. 282743E+01 

•674038E+00 

-.597793E+01 

c 

.314159E+01 

. 666667E+00 

-.484184E-04 

C 

c  -  END  OF  FUN,  SYSTEM  #  1  - 

C 

C 

C  FOR  ILLUSTRATIVE  PURPOSES  THE  COEFFICIENTS  b()  AND  c()  CCUID 
C  HAVE  BEEN  GENERATED  BY  SPECIFYING  dsorce  =  'S'  AND  WRITING  THE 
C  APPROPRIATE  FORTRAN  STATEMENTS  INTO  SUBROUTINE  coeff.  THE 
C  STATEMENTS  THAT  COUID  BE  USED  TO  ACCOMPLISH  THIS  ARE  WRITTEN  INK) 

C  THE  SUBROUTINE  BUT  ARE  'COMMENTED  OUT'. 

C 

C***************************  MAIN  FROGRAM  *************************** 


character  infile* 12,  mode*l,  ylabl*13,  dsorce*!,  yscal*3 
real  mh( 101) ,  ph(101),  thetav(lOl),  c(0:128),  b(0:128) 

C  PROMPT  USER  FOR  MODE:  BATCH  OR  TEST. 

write (*,1115) 
read(*,1117)  mode 

if ( (mode.eq. 'Y') .or. (mode.eq. 'y* ) )  then 
mode  =  'Y' 
write (*,1118) 
read (*,1119)  infile 
else 
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infile  *  'DIGFREQ.IN' 
endif 

C  UNIT=1  DEFINED  AS  INFUT  FIIE.  UNCTS=2,3  DEFINED  AS  OUTPUT  FUES. 

open (unit=l , file=infile , status* 1 old ' , iostat=ierr , err=999 ) 
open(unit=2 ,  file* '  DIGFREQ .  CUT ' ) 
open (unit*3 , file* 1 DIGFREQ . DAT 1 ) 

C  READ  INPUT  PARAMETERS  AND  CONDUCT  ERROR  CHECKS. 

read(l,1000)  numsys 
numplts  =  numsys*2 
write ( 3 , 2000)  numplts 
if ((numsys. It. 1) .or. (numsys. gt. 3) )  then 
write(*f 1122)  numsys 

stop  'Error,  numsys  must  be  in  the  range:  1  <=  numsys  <=  3. ' 
endif 

do  10  nsys=l,  numsys 

data  mh/101*0.0/,  ply  101*0.0/,  thetav/101*0.0/ 
data  b/l29*0.0/,  c/129*0.0/ 

read(l,1001)  L,  N,  dsorce,  yscal 
read (1,1002)  dlthta,  thetaO,  numpts 

if ( (L.lt.0) .or. (L.gt.128) )  then 
write(*,ll 24)  nsys,  L 

stop  'Error,  L  must  be  in  the  range:  0  <=  L  <=  128. ' 
elseif ( (N.lt.0) .or. (N.gt.128) )  then 
write(*,1125)  nsys,  N 

stop  'Error,  N  must  be  in  the  range:  0  <=  N  <=  128. ' 
endif 

if ((dsorce. eq. ' F* ) .or. (dsorce. eq. 'f1 ) )  then 
dsorce  =  'F' 

elseif ( (dsorce. eq. 'S') .or. (dsorce. eq. 's'))  then 
dsorce  =  'S' 
else 

write (*,1018)  dsorce 

stop  'The  allowed  values  for  dsorce  are:  1  'S' '  or  "F" . ' 
endif 

if ( (numpts.lt. 1) .or. (numpts. gt. 101) )  then 
write (*,1127)  nsys,  numpts 

step  'Error,  numpts  must  be  in  the  range:  1  <=  numpts  <=  101. ' 
endif 

if ( (yscal. eq.  'STD')  .or.  (yscal. eq.  'std'))  then 
yscal  =  'STD' 
ylabl  =  '  MAGNITUDE  ' 

elseif ((yscal. eq. 'ICG') .or. (yscal. eq. 'log'))  then 


yscal  =  •LOG' 
ylabl  =  '  MAGNITUDE  (dB)  ' 
else 

write(*,1128)  yscal 

stop  'Error,  yscal  must  be  the  string:  1  'LOG' '  or  '  'STD' 1 . ' 
endif 

C  FOR  dsorce  =  'F'  READ  THE  COEFFICIENTS  b()  AND  c()  FRCM  THE  INFUT 
C  FUE.  FDR  dsorce  =  'S'  CALL  coeff  TO  GENERATE  THE  COEFFICIENTS. 

if (dsorce. eq. 'F' )  then 
read(l,1003)  (b(k),k=0,L) 
read(l,1003)  (c(k),kK),N) 
else 

call  coeff  (L,N,nsys,b,c) 
endif 

C  WRITE  INPUT  DATA  INTO  THE  0UTR7T  FILE:  DIGFREQ.OOT. 

write(2,1008)  nsys 
write (2, 1010)  infile 
write (2, 1110)  L 
write (2 ,1111)  N 
write (2, 1019)  dsorce 
write(2,1112)  nuropts,  yscal 
write (2 ,1113)  thetaO 
write (2, 1114)  dlthta 
write (2, 1004) 

write (2 ,1005)  (b(k)  ,k=0,L) 
write (2, 1006) 

write(2,1005)  (c(k),k=0,N) 
write(2,1009)  nsys 
write(2,1126)  ylabl 
write (2, 1007) 

C  FOR  TEST  MODE  ECHO  ALL  INKflS  ONTO  MONITOR  (UNIT  =  *)  . 

if (rode. eg. 'Y' )  then 
write(*,1120)  nsys,  infile 
write (*,1110)  L 
write (*,1111)  N 
write (*,1019)  dsorce 
write (*,1112)  numpts,  yscal 
write (*,1113)  thetaO 
write (*,1114)  dlthta 
write (*,1004) 

write (*,1005)  (b(k)  ,k=0,L) 
write (*,1006) 

write (*,1005)  (c(k),k=0,N) 
write(*,1123)  nsys 

pause  'END  OF  FUN,  STRIKE  <CR>  WHEN  READY  TO  OONITNUE. ' 
endif 


C  CALL  dfresp  TO  OCMEUTE  THE  FREQUENCY  RESPONSE. 

call  dfresp (b/c/mh/ph,L,N,thetaO,dlthta,thetav/nuitpts,yscal) 

C  WRITE  RESULTS  INTO  OUTPUT  FILE:  DIGFREQ.DAT. 

write (3, 2001)  numpts 
write(3,*)  'MAGNITUDE  RESPONSE' 
write(3,*)  ' THETA  (rad)' 
write (3, 2003)  ylabl 
do  55  np*=l,  numpts 

write(3,2010)  thetav(np) ,  mh(np) 

55  continue 

write (3, 2001)  numpts 
write(3,*)  'IHASE  RESPONSE' 
write(3,*)  'THETA  (rad)' 
write (3, 2003)  '  IHASE  (DEG)  ' 
do  56  np=l,  numpts 

write(3,2010)  thetav(np) ,  ph(np) 

56  continue 

C  WRITE  RESULTS  INTO  OUTPUT  FILE:  DIGFREQ.OOT. 
do  150  np=l,  numpts 

write(2,1013)  thetav(np) ,  mh(np) ,  ph(np) 

150  continue 

write (2, 1123)  nsys 

10  continue 

write (*,1121) 

999  close  (unit=l) 
close  (unit=2) 
close  (unit=3) 

if (ierr.gt.O)  then 
write ( * , 1116)  ierr 
endif 

0***********  TN m  yr  FORMAT  **************** 

1000  format (il) 

1001  format(i3,tll,i3,t21,al,t31,a3) 

1002  format (2f 10 . 0 , i3 ) 

1003  format (6f 10.0) 

0******************************************* 

1004  format  (t4,  'THE  NUMERATOR  COEFFICIENTS  b(0)  ,b(l) . .  .b(L)  ARE: 

1005  format (6 (2X, ell. 4) ,//) 


1006  0format(//,t4,  'THE  DENOMINATOR  COEFFICIENTS  C(0)  ,c(l) . .  .c(N)  ' , 

1'  ARE:  ',/) 

1007  format  (t6,  '  (RADIANS)  ' , t38 ,  '  (DECREES)  ' ,/) 

1008  format (tl6,  '  INPUT  DATA  FOR  SYSTEM  #  ',il,//) 

1009  format (///, tl6 ,  '  OUTPUT  DATA  FOR  SYSTEM  #  •  ,il,/) 

1010  format (t4, 'INPUT  DATA  SCURCEFILE:  ',al2) 

1013  format (t4 , 3  (el2 . 6 , 4x) ) 

1018  format ( lx ,  'dsorce  =  ' ,al,2x, 'Error,  illegal  value  for  dsorce. ' ) 

1019  format (t4, 'dsorce  =  ',al) 

1110  format(t4,  'DEGREE  OF  NUMERATOR  =  *,i3) 

nil  format (t4,  'DEGREE  OF  DENCKCNATOR  =  ',i3) 

1112  0format(t4,  'NUMBER  OF  FREQUENCY  POINTS  =  ', i3,t39,  'MAGNITUDE' , 

1'  OPTION  =  ' ,a3) 

1113  format (t4, 'STARTING  VALUE  OF  THETA  =  ',el2.6) 

1114  format (t4,  'INCREMENT  OF  THETA  =  ',el2.6,/) 

1115  Oformat(lx,  'DO  YOU  WISH  TO  RUN  THIS  PROGRAM  IN  TEST' , 

1'  MODE  ?  (Y/N)  <GR>  :  ',\,) 

1116  Oformat(///,lx,  'ERROR  OPENING  INPUT  FILE,  PROGRAM  TERMINATED.  ' , 

1//,  lx,  'ERROR  CODE: ' ,  i4 ,/////) 

1117  format (al) 

1118  Oformat (/////,  lx,  'TYPE  THE  NAME  OF  YOUR  DATA  FH£  FOLLOWED ' , 

1'  BY  <CR>.  ' ,/,  '  IF  YOU  DESIRE  TO  MAKE  A  TEST  RUN  USING  THE' , 

2'  SAMPLE  DATA  ALREADY  STORED' ,/,  '  IN  THE  FIIE:  DIGFREQ.TST' , 

3  '  TYPE:  DIGFREQ.TST  <CR>',/,  •  FILENAME:  ',\,) 

1119  format (al2) 

1120  f ormat (////, t4, 'SYSTEM  #  ',il, '  INPUT  DATA  SOURCEFUE:  ',al2) 

1121  Of  ormat  (//,t4,  'TABULAR  OUTPUT  DATA  IS  STORED  IN  FIIE:  DIGFREQ.OUT' , 
l/,t4,  'PLOTTING  DATA  IS  STORED  IN  FILE:  DIGFREQ.DAT.  ') 

1122  format (//////, t2,  'The  value  of  numsys  is:  ' ,il, ' . ') 

1123  format(/,  lx,  13( '-'),'  END  OF  FUN,  SYSTEM  #' ,il,2x,13('-') ,//) 

1124  Of  ormat  (//////,  t2, 'The  degree(L)  of  the  numerator  for  system  ', 

1'#  ' ,il, '  is  :  L  =  ' , i3 , ' . ' ) 

1125  0format(//////,t2, 'The  degree (N)  of  the  denominator  for  system' 

1, '  #  ' ,il, 'is  :  N  =  ' , i3 , ' . ' ) 

1126  f ormat (///,t8,  'THETA' ,t21,al3,t40,  'FHASE' ) 

1127  format (//////, t2,  'The  value  of  numpts  for  system  ',il, '  is:  ',i3) 

1128  format(/////,t2,  'The  value  of  yscal  is:  '  ,a3, ' . ') 

2000  format (il) 

2001  format (i3) 

2003  format (al3) 

2010  format(el2.6,2x,el2.6) 

end 


|  c  SUBROUTINE:  dfresp 


C  PURPOSE:  THIS  SUBROUTINE  COMPUTES  THE  FREQUENCY  RESPONSE  OF 
C  THE  SYSTEM.  ALL  FREQUENCY  CALCUIATIONS  ARE  IN  RADIANS, 

C  HOWEVER  THE  OUTPUT  IS  CONVERTED  TO  DEGREES. 
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THE  CXJTEUT  FORMAT  FOR  EACH  FREQUENCY  INCREMENT  IS: 
MAGNITUDE  (M)  IHASE(P)  AS  IN:  M*EXP(J*P) . 


subroutine  dfresp(b,c,nh,ph,L,N,  thetaO,  dlthta,thetav,nuirpts,  yscal) 

reed  mh(nunpts) ,  ph(mnrpts) ,  thetav(numpts) ,  imz,  rez 

real  b(0:L)/  c(0:N) 

character  yscal*3 

ccsiplex  z,  den,  num,  h,  ci 

DEFINE  CONSTANTS. 

pi  =  4.0*atan(1.0) 
ci  =  (1.0, 0.0) 

ITERATE  FRCM  thetaO,  IN  INCREMENTS  OF  dlthta. 

do  100  np=l,  numpts 
num  =  ci*b(0) 
den  =  ci*c(0) 

thetav(np)  =  thetaO  +  (np-1)  *dlthta 
rez  =  cos(thetav(np) ) 
imz  =  sin(thetav(np) ) 
z  =  cmplx(rez,imz) 

CALCULATE  NUMERATOR  FOR  GIVEN  VALUE  OF  THETA,  IF  L  >  0. 

if (L.gt.O)  then 
do  50  k=l,  L 

num  =  z*num  +  ci*b(k) 

50  continue 

endif 

CALCULATE  DENOMINATOR  FOR  GIVEN  VALUE  OF  THETA,  IF  N  >  0. 

if(N.gt.O)  then 
do  70  k=l,  N 

den  =  z*den  +  ci*c(k) 

70  continue 

endif 

h  =  num/den 

CONVERT  COMPLEX  VALUE  'h'  INK)  MAGNITUDE (mh)  AND  PHASE (ph)  TERMS. 

IF  yscal  =  'LOG'  THEN  CONVERT  MAGNITUDE  TO  DECIBELS  (d B)  . 

DIVIDE  BY  ZERO  AVOIDED  BY  'if'  STATEMENTS. 

mh(np)  =  cabs(h) 
if (yscal. eq. 'LOG')  then 
if (mh(np) .gt. 0.00001)  then 
mh(rp)  =  20.0*logl0(mh(np) ) 


ooooonnog  oooo 


else 

mh(np)  =  -100.0 
endif 
endif 

if  (abs(real(h) )  .lt.l.0e-15)  then 

if  (abs(aimag(h) )  .le.l.0e-15)  ph(np)=0.0 
if  (aimag(h)  .gt.l.0e-15)  ph(np)=90.0 
if (aimag(h) .lt.-1.0e-15)  ph(np)=-90.0 
else 

ph  (np)  =  ( 180 . 0/pi)  *atan2  ( aimag  (h) ,  real  (h) ) 
endif 

100  continue 

return 

end 


C  SUBROUTINE:  coeff 


PURPOSE:  THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  THE 

NUMERATOR  AND  DENOMINATOR  COEFFICIENTS  THAT  DESCRIBE 
EACH  SYSTEM  TO  BE  ANALYZED.  IF  dsorce  =  'S'  THEN 
THE  MAIN  PROGRAM  WILL  CALL  THIS  SUBROUTINE. 


subroutine  coeff (L,N,nsys,b,c) 
real  b(0:L),  c(0:N) 

pi  =  4.0*atan(1.0) 
el  =  L 
en  =  N 


********************************************************************** 
DEVELOP  THE  EQUATIONS  TO  GENERATE  VALUES  FOR  THE  ARRAYS  b()  AND  c() 

IN  THIS  SPACE.  THE  STATEMENTS  TYPED  IN  MUST  FOLLOW  STANDARD 
FORTRAN  77  HUIES  AND  MAY  USE  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS: 
SIN ( ) ,  COS  ( ) ,  ABS  ( ) .  •  •  AN  EXAMPLE  IS  SHOWN  BELOW.  NOTE  THAT  THE 
VALUE  nsys  CAN  BE  USED  TO  DISTINGUISH  BETWEEN  SYSTEMS  IF  MORE  THAN 
ONE  SYSTEM  (rtumsys  >1)  IS  TO  BE  ANALYZED. 

***  EXAMPLE  *** 

C 


t 


C  if (nsys.eq.l)  then 
C  do  2  i=0,  L 

C  b(i)  =  cos(i*pi/(2.0*el) ) 

C  2  continue 

C  do  3  i=0,  N 

C  c(i)  =  cos(2.0*i*pi/(3.0*en) ) 

C  3  continue 

C  endif 


O********************************************************************** 

return 

end 


ANIGFREQ.POR 


VERSION  2/03/88 


PURPOSE:  THIS  PROGRAM  COMPOTES  THE  FREQUENCY  RESPONSE  OF 

CONTINUOUS-TIME  SYSTEMS.  THE  PROGRAM  CONSISTS  OF  A 
MAIN  PROGRAM  THAT  CONTROLS  THE  INFOT/COTPOT  AND  THE 
SUBROUTINE  afresp  THAT  COMFOTES  THE  FREQUENCY 
RESPONSE.  THE  USER  CAN  SELECT  ONE  OF  TWO  OPERATING 
MODES:  BATCH  OR  TEST.  IN  BATCH  MODE  THE 
AMOUNT  OF  INTERFACE  WITH  THE  USER  IS  MINIMIZED  AND 
IT  IS  ASSUMED  THAT  THE  INPUT  DATA  HAS  BEEN  STORED  IN 
THE  DEFAULT  FILE  'ANIOFREQ.IN' .  IN  THE  TEST 
MODE  THE  USER  IS  PROMPTED  FOR  THE  NAME  OF  THE  INPUT 
FILE  OR  HAS  THE  OPTION  TO  PERFORM  A  TRIAL  FUN  BY 
USING  THE  INPUT  DATA  STORED  IN  THE  FILE  'ANLGFREQ.TST' . 
IT  IS  RECOMMENDED  THAT  FIRST-TIME  USERS  SEIECT  THE 
TEST  MODE  AND  MAKE  A  TRIAL  RUN  WITH  THE  FRE- 
STORED  INPUT  DATA.  THE  TEST  MODE  ECHOES  THE 
INPUT  DATA  ONTO  THE  MONITOR  TO  ALLOW  VERIFICATION  OF 
ITS  ACCURACY.  THIS  PROGRAM  WILL  COMPOTE  THE  FREQUE 
RESPONSE  OF  UP  TO  THREE  SYSTEMS.  FOR  EACH  SYSTEM, 

USER  HAS  THE  OPTION  OF  HAVING  THE  OUTPUT  EXPRESSED 
DECIBELS  (dB)  .  THE  OUTPUT  OF  THIS  PROGRAM  IS  STOREE 
TABULAR  FORM  IN  THE  FILE  ' ANLGFREQ.COT'  AND  IN  A  PC 
SUITABLE  FOR  PLOTTING  IN  THE  FIIE  ' ANIGFREQ.DAT* . 


C*****************************  INPUT  ********************************* 


C 

C  THIS  PROGRAM  ASSUMES  THAT  EACH  CONTINUOUS-TIME  SYSTEM  IS  MODELED 
C  BY  THE  EQUATION:  H(s)  =  num/den  WHERE: 

C 

C  num  =  b(0)*s**L  +  b(l) *s**(L-l)  +  ...  +  b(L-l)*s  +  b(L) 

C 

C  den  =  a(0)*s**N  +  a(l)*s**(N-l)  +  ...  +  a(N-l)*s  +  a(N) 

C 

C  L  =  A  NON-NEGATIVE  INTEGER,  THE  DEGREE  OF  THE  NUMERATOR 
C  POLYNOMIAL. 

C  N  =  A  NON-NEGATIVE  INTEGER,  THE  DEGREE  OF  THE  DENOMINATOR 
C  POLYNOMIAL. 

C  b(0)  . .  .b(L)  =  REAL  COEFFICIENTS  OF  THE  NUMERATOR  TERMS. 

C  a(0)  . .  .a(N)  =  REAL  COEFFICIENTS  OF  THE  DENOMINATOR  TERMS. 

C 

C  THE  INPUT  PARAMETERS  SHOULD  BE  STORED  IN  A  FIIE  NAMED 

C  'ANLGFREQ.  IN' .  ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS  PROGRAM 

C  REQUIRE  FORMATTED  INPUT.  PARTICULAR  ATTENTION  SHOULD  BE  PAID 
C  TO  THE  FORMATS,  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT  TO 
C  DENOTE  'REAL'  NUMBERS.  THE  INPUT  PARAMETERS  REQUIRED  BY  THE 
C  PROGRAM  ARE  LISTED  BELOW. 


*a«aa 


TYPE 


RANGE  (ARRAYS) 


RESTRICTIONS 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NAME 


numsys 

INTEGER 

1  <=  numsys  <=  3 

L 

INTEGER 

0  <=  L  <=  128 

N 

INTEGER 

0  <=  N  <=  128 

ctnegaO 

REAL 

dlamga 

REAL 

numpts 

INTEGER 

1  <=  numpts  <=101 

yscal 

CHARACTER 

'STD'  OR  'IOG' 

b() 

REAL 

0/1/2. . . L 

0  <=  L  <=  128 

a() 

REAL 

0,1/2. ..N 

0  <=  N  <=  128 

WHERE: 

numsys 

=  THE  NUMBER  OF 

DISTINCT  SYSTEMS  H(s) 

TO  BE  ANALYZED. 

THIS  INTEGER  VALUE  MUST  OCCUR  AT  THE  TOP  OF  THE  INPUT 
FILE.  IT  DELINEATES  THE  NUMBER  OF  SYSTEMS  TO  BE  READ  BY 
THE  PROGRAM  AND  ANALYZED.  FOR  EACH  SYSTEM  (1,  . . . ,  numsys) 
THE  PARAMETERS  BEICW  MUST  APPEAR  IN  THE  INPUT  FILE. 


L  =  THE  DEGREE  OF  THE  NUMERATOR  POLYNOMIAL. 

N  =  THE  DEGREE  OF  THE  DENOMINATOR  POLYNOMIAL. 

cmegaO  =  THE  STARTING  VAIEE  OF  OMEGA  (RAD/S)  AS  IN  S=J*CMEGA. 

dlamga  =  THE  INCREMENT  OF  OMEGA  (RAD/S) . 

nunpts  =  THE  NUMBER  OF  FREQUENCY  POINTS  FOR  WHICH  THE  OUTPUT  IS  TO 
BE  COMPUTED. 

yscal  =  A  CHARACTER  STRING  SPECIFYING  THE  DESIRED  MAGNITUDE  OPTION: 
'STD'  WILL  PRODUCE  STANDARD  MAGNITUDE  OUTPUT; 

'IOG'  WILL  PRODUCE  MAGNITUDE  EXPRESSED  IN  DECIBET  S  (dB)  . 

b(k)  =  THE  NUMERATOR  COEFFICIENTS  IN  ORDER  b(0) ,  b(l)  ,  . . . ,  b(L)  . 

a(k)  =  THE  DENOMINATOR  COEFFICIENTS  IN  ORDER  a(0)f  a(l)  ,  ...,  a(N)  . 

NOTE:  THE  INFUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN  PROGRAM 

FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********* 

THE  FORM  OF  THE  INPUT  DATA  FIIE  IS: 


LINE  # 

ENTRIES 

FORMAT 

1 

numsys 

il 

2 

L,  N , numpts , yscal 

i3,tll,i3,t21, : 

3 

dlamga, amegaO 

2fl0. 0 

4. . .4+NN 

b(k) ,  k=0,l,...L 

6fl0. 0 

5+NN. . ,5+NN+N 
* 

a(k) ,  k=0,l,...N 

6fl0. 0 

WHERE:  NN  =  L/6  ROUNDED  DOWN  TO  THE  NEXT  SMALLER  INTEGER. 

ND  =  N/6  ROUNDED  DOWN  TO  THE  NEXT  SMALLER  INTEGER. 

*NCTE:  FOR  numsys  >  1  THE  FORMAT  OF  LINES  2. . .  IS  REPEATED. 

THE  FORMAT  flO.O  USED  FOR  INPUT  DATA  PERMITS  THE  DECIMAL 
POINT  TO  EE  PLACED  ANYWHERE  IN  THE  FIELD  OF  10  COLUMNS 
AND  ALSO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE  USED  (EG. 
3146.2  =  3.1462E+03) . 


C*****************************  OUTPUT  ******************************* 


THE  OUTPUT  DATA  CREATED  BY  THE  PROGRAM  IS  STORED  IN  TABULAR  FORM 
IN  THE  FUE  'ANIGFREQ.OUT'.  ADDITIONALLY,  THE  OUTPUT  DATA  IS 
WRITTEN  INTO  THE  FILE  'ANIGFREQ.DAT*  TO  FACILITATE  PLOTTING  BY  A 
SEPARATE,  USER  SUPPLIED  PROGRAM.  THE  FORMAT  OF  THE  DATA  IN 
'ANIGFREQ.DAT'  IS:  el2.6,  2x,  el2.6.  THE  FIRST  ENTRY  CORRESPONDS 
TO  THE  ORDINATE  VALUE  (OMEGA)  AND  THE  SECOND  ENTRY  THE  ABSCISSA 
VALUE  (MAGNITUDE  OR  PHASE)  .  ADDITIONAL  HEADER  INFORMATION  IS 
WRITTEN  INTO  THE  DATA  FILE  TO  ALLOW  FOR  CONTROL  AND  LABELING  OF 
EACH  PLOT. 


C****************************  EXAMPLE  ******************************** 


THE  INPUT  PARAMETERS  FOR  THE  SYSTEM  DESCRIBED  BELOW  ARE  STORED  IN 
THE  SAMPLE  INPUT  FILE  '  ANLGFREQ .  TST 1  AND  CAN  BE  USED  FOP  A  TRIAL 
RUN  IN  THE  TEST  MODE. 


SYSTEM:  H(s)  =  10.0*s/(s**2  +  6.0*s  +  5.0) 

GOAL:  TO  OBTAIN  THE  FREQUENCY  RESPONSE  FOR  THIS  SYSTEM  FROM 

OMEGA  =  0.0  TO  OMEGA  =  4.0  (RAD/S)  IN  STEPS  OF 
dlcroga  =  0.2  (RAD/S). 

FOR  THE  SYSTEM  DESCRIBED  ABOVE  THE  INPUT  FIIE  IS: 


c 

c 

001 

001 

002 

021 

c 

0.2 

0.0 

c 

10.0 

0.0 

c 

1.0 

6.0 

5.0 

Vi AtJOVtAJ', 


non 


C  THE  RESULTING  OUTPUT  DATA  FIIE  ( '  ANIGFREQ.CUT' )  IS: 

C 

C  INPUT  DATA  FOR  SYSTEM  #  1 

C 

C  INPUT  DATA  SCURCEFILE:  ANIGFREQ.TST 
C  DEGREE  OF  NUMERATOR  =  1 

C  DEGREE  OF  DENOMINATOR  =  2 

C  NUMBER  OF  FREQUENCY  POINTS  =  21  MAGNITUDE  OPTION  =  STD 

C  STARTING  VALUE  OF  OMEGA  =  .000000E+00 

C  INCREMENT  OF  OMEGA  =  .200000E+00 

C 

C  THE  NUMERATOR  COEFFICIENTS  b(0)  ,b(l) . .  .b(L)  ARE: 

C 

C  . 1000E+02  . 0000E+00 

C 

C 

C  THE  DENOMINATOR  COEFFICIENTS  a(0)  ,a(l) . .  .a(N)  ARE: 

C 

C  . 1000E+01  . 6000E+01  .5000E+01 

C 

C 

C  OUTPUT  DATA  FOR  SYSTEM  #  1 

C 


c 

OMEGA 

MAGNITUDE 

PHASE 

c 

c 

(rad/s) 

(DEGREES) 

v» 

c 

. OOOOOOE+OO 

.OOOOOOE+OO 

.OOOOOOE+OO 

c 

. 200000E+00 

. 391919E+00 

•763995E+02 

c 

.400000E+00 

.740416E+00 

. 636247E+02 

c 

. 600000E+00 

. 102166E+01 

.521935E+02 

c 

. 800000E+00 

. 123370E+01 

.422499E+02 

c 

. lOOOOOE+Ol 

. 13867 5E+01 

. 336901E+02 

c 

. 120000E+01 

. 149402E+01 

•263098E+02 

c 

. 140000E+01 

. 156719E+01 

. 198954E+02 

c 

. 160000E+01 

. 161531E+01 

. 142607E+02 

c 

. 180000E+01 

. 164497E+01 

. 925573E+01 

c 

. 200000E+01 

. 16609 1E+01 

.476364E+01 

c 

. 220000E+01 

. 166654E+01 

.694459E+00 

c 

. 240000E+01 

. 166435E+01 

302114E+01 

c 

. 260000E+01 

. 165616E+01 

-.643692E+01 

c 

. 280000E+01 

. 164335E+01 

-.959500E+01 

c 

. 300000E+01 

. 162698E+01 

125288E+02 

c 

. 320000E+01 

. 160786E+01 

-. 152652E+02 

c 

. 340000E+01 

. 158665E+01 

178262E+02 

c 

.360000E+01 

. 156386E+01 

202298E+02 

c 

. 380000E+01 

. 153990E+01 

-.224913E+02 

c 

. 400000E+01 

. 151511E+01 

246236E+02 

c 

END  OF  RUN,  SYSTEM  #  1 
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C**************************  MAIN  PROGRAM  ***************************** 


character  infile* 12,  mode*l,  ylabl*13,  yscal*3 
realnh(lOl),  ph(101),  cmegav(lOl) ,  a(0:128),  b(0:128) 

C  PROMPT  USER  FOR  MODE:  BATCH  OR  TEST. 

write (*,1115) 
read(*,1117)  mode 

if ( (mode.eq. 'Y' ) .or. (mode.eq. 'y' ) )  then 
mode  =  1 Y' 
write (*,1118) 
read (*,1119)  infile 
else 

infile  =  'ANLGFREQ.  IN' 
endif 


C  UNIT=1  DEFINED  AS  INPUT  FILE.  UNITS=2,3  DEFINED  AS  OUTHJT  FIIES. 

open (unit=l, file= infile, status= 1 old ' , iostat=ierr , err=999) 
open  (unit=2 ,  f  ile= '  ANLGFREQ .  OUT ' ) 
open  (unit=3 ,  f  ile= '  ANLGFREQ .  DAT ' ) 

C  READ  INPUT  PARAMETERS  AND  CONDUCT  ERROR  CHECKS. 

read(l,1000)  numsys 
nunplts  =  numsys*2 
write (3, 2000)  nunplts 

if( (numsys. It. 1) .or. (numsys. gt. 3))  then 
write (*,1122)  numsys 

step  'Error,  numsys  must  be  in  the  range:  1  <=  numsys  <=  3. ' 
endif 

do  10  nsys=l,  numsys 

data  114^101*0.0/,  ph/101*0.0/,  omegav/101*0. 0/ 
data  a/129*0.0/,  b/129*0.0/ 

read(l,1001)  L,  N,  numpts,  yscal 
read(l,1002)  dlcmga,  cmegaO 

if ( (L.lt.O) .or. (L.gt.128) )  then 
write(*,1124)  nsys,  L 

step  'Error,  L  must  be  in  the  range:  0  <=  L  <=  128. ' 
elseif ( (N.lt.O) .or. (N.gt.128) )  then 
write (*,1125)  nsys,  N 

step  'Error,  N  must  be  in  the  range:  0  <=  N  <=  128. ' 
endif 


( 

! 


if  ((nunpts.lt.  1)  .or.  (nurnpts.gt.  101) )  then 
write(*,1127)  nsys,  numpts 

step  'Error,  numpts  must  be  in  the  range:  0  <=  numpts  <=  101. ' 
endif 

if ( (yscal . eq. 'STD1 ) .or. (yscal.eq. 'std* ) )  then 
yscal  =  'STD' 
ylabl  =  '  MAGNITUDE  ' 

elseif ( (yscal.eq. 'LOG' ) .or. (yscal.eq. 'log' ) )  then 
yscal  =  'LOG' 
ylabl  =  'MAGNITUDE  (dB)  ' 
else 

write (*,1128)  yscal 

stop  'Error,  yscal  must  be  the  string:  1  'IDG' '  or  ' 'STD' ' . ' 
endif 

C  READ  THE  SYSTEM  COEFFICIENTS  b()  AND  a()  . 

read(l,1003)  (b(k)  ,kK),L) 
read(l,1003)  (a(k),k=0,N) 

C  WRITE  THE  INRJT  PARAMETERS  INTO  OUTPUT  FILE:  ANIGFREQ.OUT. 

write(2,1008)  nsys 
write(2,1010)  infile 
write(2,1110)  L 
write (2, 1111)  N 
write (2, 1112)  numpts,  yscal 
write (2, 1113)  amegaO 
write (2, 1114)  dlomga 
write (2, 1004) 

write (2, 1005)  (b(k),k=0,L) 
write (2, 1006) 

write (2, 1005)  (a(k) ,k=0,N) 
write(2,1009)  nsys 
write (2, 1126)  ylabl 
write (2, 1007) 

C  FOR  TEST  MODE  ECHO  ALL  INPUTS  ONTO  MONITOR  (UNIT  -  *)  . 

if  (mode. eq.  'Y' )  then 
write (*,1120)  nsys,  infile 
write (*,1110)  L 
write (*,1111)  N 
write (*,1112)  numpts,  yscal 
write ( * , 1113 )  omegaO 
write (*,1114)  dlomga 
write (*,1004) 

write (*, 1005)  (b(k) ,k=0,L) 
write (*,1006) 

write(*,1005)  (a(k),k=0,N) 
write (*,1123)  nsys 
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pause  'END  OF  RUN,  STRIKE  <CR>  WHEN  READY  TO  CONTINUE' 
endif 

C  CALL  afresp  TO  COMPUTE  FREQUENCY  RESPONSE. 

call  afresp (b, a, mh,ph,L,N,cmegaO,<&omga,ainegav,nuirpts,yscal) 

C  WRITE  RESULTS  INTO  OUTPUT  FIIE:  ANLSFREQ.DAT. 

write (3, 2001)  numpts 
write (3,*)  'MAGNITUDE  RESPONSE' 
write(3,*)  ' OMEGA (ra4/s) ' 
write (3, 2003)  ylabl 
do  55  np  =  1,  numpts 

write(3,2010)  cmegav(np) ,  mh(np) 

55  continue 

write (3, 2001)  numpts 
write(3,*)  'PHASE  RESPONSE' 
write(3,*)  'OMEGA(rad/s) ' 
write (3, 2003)  '  PHASE  (DEG)  ' 
do  56  np  =  1,  nunpts 

write(3,2010)  amegav(np),  ph(np) 

56  continue 

C  WRITE  RESULTS  INTO  OUTPUT  FILE:  ANL3FREQ.OUT. 
do  150  np=l,  nunpts 

write (2, 1013)  csmegav (np) ,  mh(np) ,  ph(rp) 

150  continue 

write (2, 1123)  nsys 

10  continue 

write (*,1121) 

999  close (unit=l) 
close (unit=2) 
close (unit=3) 

if (ierr.gt.0)  then 
write (*,1116)  ierr 
endif 

C  ************  input  FORMAT  ************* 

1000  format (i3) 

1001  format(i3,tll, i3,t21, i3,t31,a3) 

1002  format (2f 10.0) 

1003  format(6(fl0.0) ) 


c  ***************************************** 


1004  format  (t4 ,  "IHE  NUMERATOR  COEFFICIENTS  b(0)  ,b(l)  . .  .b(L)  ARE:  ' ,/) 

1005  format(6(2X,ell.4) ,//) 

1006  Of  ormat  (//,t4,  "IHE  DENOMINATOR  COEFFICIENTS  a(0)  ,a(l) . .  .a(N)  ' , 

1'  ARE:',/) 

1007  format (t8, ' (rad/s) ' ,24x, ' (DEGREES)',/) 

1008  format (tl6,  '  INPUT  DATA  FOR  SYSTEM  #  ',il,//) 

1009  format (///,tl6,  '  OUTEUT  DATA  FOR  SYSTEM  #  ',il,/) 

1010  f ormat (t4, 'INPUT  DATA  SOURCEFILE:  ',al2) 

1013  format (t4,3(el2.6,4x) ) 

1110  format (t4,  'DEGREE  OF  NUMERATOR  =  \i3) 

1111  format (t4, 'DEGREE  OF  DENOMINATOR  =  *,i3) 

1112  Of  ormat  (t4, 'NUMBER  OF  FREQUENCY  POINTS  =  ' , i3,t40, 'MAGNITUDE' , 

1'  OPTION  =  '  ,a3) 

1113  format (t4,  'STARTING  VALUE  OF  OMEGA  =  ',el2.6) 

1114  format (t4, 'INCREMENT  OF  OMEGA  =  *,612.6,/) 

1115  Oformat(lX,  'DO  YOU  WISH  TO  RUN  THIS  PROGRAM  IN  TEST' , 

1'  MODE  ?  (Y/N)  <CR>  :  'A,) 

1116  Of ormat (/// , lx ,  'ERROR  OPENING  INPUT  FILE,  PROGRAM  TERMINATED.  ' , 
l//,lx,  'ERROR  CODE:  '  ,i4, /////) 

1117  format (al) 

1118  Oformat (/////, lx,  'TYPE  THE  NAME  OF  YOUR  DATA  FILE  FOLLOWED', 

1'  BY  <CR>.  ' ,/,  '  IF  YOU  DESIRE  TO  MAKE  A  TEST  RUN  USING  THE' , 

2'  SAMPLE  DATA  ALREADY  STORED' ,/,  '  IN  IHE  FIIE:  ANLGFREQ.TST' , 

3  '  TYPE:  ANLGFREQ.TST  <CR>',/,'  FILENAME:  ' ,  \, ) 

1119  format (al2) 

1120  f ormat (////, t4, 'SYSTEM  #  ',il, '  INPUT  DATA  SOURCEFILE:  ',al2) 

1121  Of ormat (/,t4,  'TABULAR  OUTPUT  DATA  IS  STORED  IN  FIIE:  ANLGFREQ.OUT' 
l,/,t4,  'PLOTTING  DATA  IS  STORED  IN  FIIE:  ANIGFREQ.DAT') 

1122  format (////// ,t2,  'The  value  of  numsys  is:  '  ,il, ' . ') 

1123  format (/, lx,  13 ('-') ,  '  END  OF  RUN,  SYSTEM  #' ,il,2x,13( '-') ,//) 

1124  Oformat  (////// ,  t2 , ' Ihe  degree  (L)  of  the  numerator  for  system  ', 

1'#  ' ,il, '  is  :  L  =  ' , i3 , ' . ' ) 

1125  0format(//////,t2,  "Ihe  degree (N)  of  the  denominator  for  system  ', 
1'#  ',il, '  is  :  N  =  ' , i3 , ' . ' ) 

1126  f ormat (///,t8,  'OMEGA'  ,t21,al3,t40,  'PHASE') 

1127  format (//////, t2,  'The  value  of  numpts  for  system  ',il, '  is:  ',i3) 

1128  f ormat (//////, t2,  "Ihe  value  of  yscal  is:  ',a3,'.') 

2000  format (il) 

2001  format (i3) 

2003  format (al3) 

2010  format(el2.6,2x,el2.6) 


onono 


c 


SUBROUTINE:  afresp 


PURPOSE:  HUS  SUBROUTINE  OCMFUIES  THE  FREQUENCY  RESPONSE  OF 

THE  SYSTEM.  ALL  FREQUENCY  CALCULATIONS  ARE  IN  RADIANS, 
HOWEVER  THE  CUTEUT  IS  CONVERTED  TO  DEGREES. 

THE  CUTEUT  FORMAT  FOR  EACH  FREQUENCY  INCREMENT  IS: 
MAGNITUDE  (M)  FHASE(P)  AS  IN:  M*EXP(J*P)  . 


subroutine  afresp(b,a,inh/ph,L,N,omegaO,dloitiga,cmegav,nurrpts,yscal) 

real  mh(nunpts) ,  ph(nunpts) ,  cmegav(numpts) 
real  b(0:L) ,  a(0:N),  ims,  res 
character  yscal*3 
complex  s,  den,  num,  h,  ci 

C  DEFINE  CONSTANTS. 

ci  =  (1.0, 0.0) 
pi  =  4.0*atan(1.0) 

C  ITERATE  FROM  amegaO,  IN  INCREMENTS  OF  dlomga. 

do  100  np=l,  nunpts 
rrum  =  ci*b(0) 
den  =  ci*a(0) 

canegav(np)  =  amegaO  +  (np-1)  *dlamga 
res  =  0.0 
ims  =  cmegav(np) 
s  =  cnplx(res,ims) 

C  CAIOJIATE  NUMERATOR  FOR  GIVEN  VALUE  OF  OMEGA,  IF  L  >  0. 

if(L.gt.O)  then 
do  50  k=l,  L 

num  =  s*num  +  ci*b(k) 

50  continue 

endif 

C  CALCULATE  DENOMINATOR  FOR  GIVEN  VALUE  OF  OMEGA,  IF  N  >  0. 

if (N.gt.O)  then 
do  70  k=l,  N 

den  =  s*den  +  ci*a(k) 

70  cont  ii.je 

endif 


h  =  num/den 


non 


CONVERT  CCMPLEX  VMUE  'h'  INTO  MAGNITUDE  (mh)  AND  FHASE(ph)  TERMS. 
IF  yscal  =  'DDG1  THEN  CONVERT  MAGNITUDE  TO  DECIBELS  (dB)  . 

DIVIDE  BY  ZERO  AVOIDED  BY  'if  •  STATEMENTS. 

inh(np)  =  cabs(h) 
if  (yscal.  eq.  'ICG')  then 
if  (xnh(rp)  .gt. 0.00001)  then 
mh(np)  =  20.0*logl0(mh(np) ) 
else 

mh(np)  =  -100.0 
endif 
endif 

if (abs(real(h) ) .lt.l.0e-15)  then 

if (abs(aimag(h) ) .le.l.Oe-15)  ph(np)=0.0 
if  (aimag(h)  .gt.l.0e-15)  ph(np)=  90.0 
if  (aimag(h)  .lt.-1.0e-15)  ph(np)=-90.0 
else 

0a  (np)  =  ( 180 . 0/pi) *atan2 ( aimag (h) , real (h) ) 
endif 

100  continue 

return 

end 
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ooooo  onoooooonooooooooooooooooooooonoooo 


VERSION:  2/03/88 


DFT. FOR 


PURPOSE:  THIS  PROGRAM  OCMEUEES  THE  DISCRETE  FOURIER  TRANSFORM 

(DFT)  OR  THE  INVERSE  DISCRETE  FOURIER  TRANSFORM  (IDFT)  OF 
A  SEQUENCE  OF  COMPLEX  INPUT  DATA.  THE  PROGRAM  CONSISTS 
OF  A  MAIN  PROGRAM  AND  THREE  SUBROUTINES.  THE  SUBROUTINE 
dft  COMPUTES  THE  DISCRETE  FOURIER  TRANSFORM  OF  THE 
INFUT  ARRAY;  THE  SUBROUTINE  invdft  COMPUTES  THE 
INVERSE  DISCRETE  FOURIER  TRANSFORM;  AND  THE  SUBROUTINE 
sanple  ALLOWS  THE  USER  TO  GENERATE  THE  INPUT  SEQUENCE  BY 
WRITING  THE  APPROPRIATE  EQUATIONS.  IF  THE  USER  ELECTS 
TO  GENERATE  THE  INPUT  DATA  BY  USING  THE  SUBROUTINE 
sanple,  THE  EQUATIONS  MUST  BE  WRITTEN  INTO  THE 
SUBROUTINE  USING  STANDARD  FORTRAN  77  EXECUTABLE  STATE¬ 
MENTS  AND  THE  INPUT  DATA  GENERATED  MUST  BE  STORED  IN 
THE  ARRAY  xin()  .  THE  OUTPUT  OF  'DFT. FOR'  IS  STORED  IN 
THE  ARRAY  XOUtQ  .  THE  USER  HAS  THE  OPTION  OF  SELECTING 
ONE  OF  TWO  OPERATING  MODES:  BATCH  OR  TEST.  IN  BATCH 
MODE  THE  AMOUNT  OF  INTERACTION  WITH  THE  USER  IS 
MINIMIZED  AND  IT  IS  ASSUMED  THAT  THE  INPUT  PARAMETERS 
HAVE  BEEN  STORED  IN  THE  INPUT  FHE  'DFT. IN' .  IN 
TEST  MODE  THE  USER  IS  PROMPTED  FOR  THE  NAME  OF  THE 
INPUT  FUE  OR  HAS  THE  OPTION  TO  PERFORM  A  TRIAL 
RUN  USING  THE  DATA  STORED  IN  THE  FUE  'DFT.TST' . 

IT  IS  RECOMMENDED  THAT  FIRST-TIME  USERS  SEIECT  TEST 
MODE  AND  MAKE  A  TRIAL  RUN  WITH  THE  PRESTORED 
DATA.  THE  TEST  MODE  ECHOES  PORTIONS  OF  THE 
INPUT  DATA  0710  THE  MONITOR  TO  ALLOW  VERIFICATION 
OF  ITS  ACCURACY.  THE  OUTPUT  IS  STORED  IN  TABULAR  FORM 
IN  THE  FUE  'DFT. OUT'  AND  IN  A  FORM  SUITABLE  FOR 
PLOTTING  IN  THE  FUE  'DFT. DAT' . 


******************************  INPUT  ******************************** 


THIS  PROGRAM  ASSUMES  THAT  THERE  ARE  'N'  COMPLEX  VALUES  IN  THE 
INPUT  SEQUENCE.  THE  INPUT  SEQUENCE  IS  ASSUMED  TO  BE  DEFINED  IN  THE 
INTERVAL:  0  TO  N-l.  IF  THE  INPUT  SEQUENCE  CONSISTS  OF  'REAL'  NUMBERS, 

C  THE  IMAGINARY  PART  IS  STORED  AS  0.0.  THE  VALUE  'N'  AS  WELL  AS  THE 
C  OTHER  PARAMETERS  DESCRIBED  BELOW  SHOULD  BE  STORED  IN  THE  INPUT 
C  FILE  'DFT. IN' .  ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS  PROGRAM 
C  REQUIRE  FORMATTED  INPUT.  PARTICULAR  ATTENTION  SHOULD  BE  PAID  TO 
C  THESE  FORMATS,  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT  TO 
C  DISTINGUISH  BETWEEN  'REAL'  AND  INTEGER  DATA. 

C 


Tr-VJTa) 


TYPE 


RANGE  (ARRAYS) 


RESTRICTIONS 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


1 _ 


N  INTEGER 

dsorce  CHARACTER 

option  CHARACTER 

xin()  OCMPLEX  0,  1,  . ..,  N-l 


1  <=  N  <=  256 
'F'  OR  'S' 
'DFT'  OR  'INV' 
1  <=  N  <=  256 


WHERE: 


N  =  AN  INTEGER  THAT  SPECIFIES  THE  NUMBER  OF  OCMPLEX  VALUES  IN  THE 
INPUT  SEQUENCE. 

dsorce  =  A  CHARACTER  VALUE  OF  'F'  OR  'S'  DENOTING  WHETHER  THE 
INPUT  SEQUENCE  IS  TO  BE  READ  FRCM  A  FILE  (F)  OR  TO  BE 
GENERATED  (S)  BY  A  USER-DEFINED  EQUATION  LOCATED  IN  THE 
SUBROUTINE  sample. 

option  =  A  CHARACTER  STRING  OF  THE  LETTERS  'DFT'  OR  'INV* 

DENOTING  WHETHER  THE  DFT  OR  THE  INVERSE  DFT  IS  TO  BE 
PERFORMED  ON  THE  INPUT  DATA. 

xin()  =  THE  ARRAY  OF  OCMPIEX  INPUT  DATA.  IF  dsorce  =  'F' 

IS  SELECTED  THEN  THE  USER  MUST  SUPPLY  THE  N  INFUT 
VALUES  IN  THE  FUE.  IF  dsorce  =  'S'  THEN  THE  USER 
HAS  ELECTED  TO  GENERATE  THE  INPUT  SEQUENCE  BY  WRITING 
THE  APPROPRIATE  FORTRAN  STATEMENTS  IN  THE  SPACE 
PROVIDED  IN  SUBROUTINE  sample.  IF  THIS  METHOD 
OF  DATA  GENERATION  IS  ELECTED  THE  PROGRAM  MUST  BE 
RECCMPIIED  BEFORE  EXECUTION. 

NOTE:  THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN  PROGRAM 

FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********. 
THE  FORM  OF  THE  INPUT  DATA  FTIE  IS: 


LINE# 


1 

2... NHL 


ENTRIES  FORMAT 


N ,  dsorce ,  option  i3,tll,al,t21,a3 

xin()  2 f 10.0 


NOTES  1.  LINES  2... NHL  ARE  ONLY  REQUIRED  IF  dsorce  =  'F'. 

IF  dsorce  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE 
THE  N  VALUES  FOR  xin()  IN  THE  SUBROUTINE  sample.  THE 
USER  MUST  EROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS  IN 
SUBROUTINE  sample  TO  GENERATE  xin()  . 

2.  THE  FORMAT  flO.O  USED  FOR  INPUT  DATA  PERMITS  THE 

DECIMAL  POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  TEN 
COLUMNS  AND  ALSO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE 
USED  (E.G.,  3146.2  =  3.1462E+03). 


C******************************  OUTPUT  ******************************* 
C 

c 

C  THE  INPUT  DATA  AS  WELL  AS  THE  OUTPUT  DATA  ARE  STORED  IN  TABULAR  FORM 

C  IN  THE  FILE  'DFT.OUT' .  ADDITIONALLY,  THE  INKJT  SEQUENCE  (REAL  AND 
C  IMAGINARY)  AND  THE  OUTPUT  SEQUENCE  (MAGNITUDE  AND  FHASE)  ARE  WRITTEN 

C  INTO  THE  FILE  'DFT.DAT'  TO  FACILITATE  PLCTTTNG  BY  A  SEPARATE,  USER 
C  SUPPLIED  PROGRAM.  THE  FORMAT  OF  THE  DATA  IN  'DFT.DAT'  IS: 

C  el2 . 6 ,  2x,  el2 . 6 .  THE  FIRST  ENTRY  CORRESPONDS  TO  THE  ORDINATE  VALUE 

C  AND  THE  SECOND  ENTRY,  THE  ABSCISSA  VALUE.  ADDITIONAL  HEADER 
C  INFORMATION  IS  WRITTEN  INTO  'DFT.DAT'  TO  ALLOW  FOR  CONTROL  AND 
C  IABELENG  OF  EACH  PLOT. 

C 

C 

C******************************  EXAMPLE  ****************************** 

C 

C 

C  THE  INPUT  PARAMETERS  BELOW  ARE  STORED  IN  THE  INPUT  FILE 
C  'DFT.TST' .  THERE  ARE  FIVE  DATA  POINTS  IN  THE  INPUT  SEQUENCE  AND  THE 

C  GOAL  IS  TO  CALOJIATE  THE  DISCRETE  FOURIER  TRANSFORM  OF  THE  SEQUENCE. 

C 

C 

C  005  F  DFT 

C  0.0  0.0 

C  1.0  0.0 

C  2.0  0.0 

C  3.0  0.0 

C  4.0  0.0 

C 
C 

C  THE  RESULTING  OUTPUT  DATA  FILE  'DFT.OUT'  IS: 

C 

C  INPUT  DATA  SOURCEFIIE:  DFT.TST 
C  VALUE  OF  N  =  5  dsorce  =  F  option  =  DFT 

C 
C 

C  INPUT  DATA 

C 

C  SAMPLE  #  REAL  IMAGINARY 

C 

C  0  . 000000E+00  . 000000E+00 

C  1  . 100000E+01  . 000000E+00 

C  2  . 200000E+01  . 000000E+00 

C  3  . 300000E+01  . 000000E+00 

C  4  . 400000E+01  . 000000E+00 


OUTPUT  DATA. 


SAMPLE  #  REAL 


REAL  IMAGINARY 

. 100000E+02  . OOOOOOE+OO 
-.250000E+01  . 344096E+01 
-.250000E+01  . 812300E+00 
-.250000E+01  - . 812299E+00 
-.250000E+01  -.344096E+01 


MAGNITUDE  PHASE 
(DEGREES) 

. 100000E+02  .OOOOOOE+OO 
. 425325E+01  . 126000E+03 
. 262866E+01  . 162000E+03 
.262866E+01  -.162000E+03 
•425326E+01  -.126000E+03 


C  FOR  ILLUSTRATIVE  PURPOSES  THE  INPUT  SEQUENCE  xin()  OOUID  HAVE  BEEN 
C  GENERATED  BY  SPECIFYING  dsorce  =  'S'  AND  WRITING  THE  APPROPRIATE 
C  FORTRAN  STATEMENTS  INTO  SUBROUTINE  sample.  THE  STATEMENTS  THAT 
C  GOULD  BE  USED  TO  ACCOMPLISH  THIS  ARE  WRITTEN  INTO  THE  SUBROUTINE 
C  BUT  ARE  'COMMENTED  OUT' . 


C***************************  MAIN  PROGRAM  **************************** 


character  infile*12,  option*3 ,  mode*l,  dsorce*l,  yscal*3 
ccnplex  xin (0:255) ,  xout(0:255) 
reed  xmag(0:255) ,  xph(0:255),  nn 

C  PROMPT  USER  FOR  MODE:  BATCH  OR  TEST. 

write (*,1115) 
read(*,lll7)  mode 

if  ( (mode.eq.  *y • )  .or.  (mcde.eq.  'Y') )  then 
mode  =  1 Y' 
write (*,1118) 
read (*,1119)  infile 
else 

infile=  'DFT.IN' 
endif 

C  UNIT=1  DEFINED  AS  INPUT  FIIE.  UNTTS=2,3  DEFINED  AS  OUTPUT  FILES. 

open ( unit=l , f ile=inf ile , status= ' old ' , iostat=ierr , err=999 ) 
open  (unit=2 ,  file= '  DFT .  CUT ' ) 
open (uni t=3 , f ile= ' DFT . DAT ' ) 

C  READ  INPUT  PARAMETERS  AND  CONDUCT  ERROR  CHECKS. 


read (1,1000)  N,  dsorce,  option 


if((N.lt.l) .or. (N.gt.256))  then 
write (*,1010)  N 

step  'The  allowed  values  for  N  are:  l  <=  N  <=  256. ' 
endif 

if  ( (option. eq.  'dft')  .or.  (option. eq.  'DFT'))  then 
option  =  'DFT' 

elseif  ( (option. eq.  'inv')  .or.  (option. eq.  'INV') )  then 
option  =  'INV' 
else 

write (*,1011)  option 

stop  'The  allowed  values  for  option  are:  ' 'DFT' '  or  ' 'INV' ' . ' 
endif 

if ( (dsorce.eq. ' f ' ) .or. (dsorce.eq. 'F' ) )  then 
dsorce  =  'F' 

elseif  ( (dsorce.eq. 's')  .or.  (dsorce.eq. 'S' ) )  then 
dsorce  =  'S' 
else 

write (*,1009)  dsorce 

step  'The  allowed  values  for  dsorce  are:  '  'S' '  or  "F" . ' 
endif 

C  DEFINE  CONSTANTS. 

an  =  N 
k  =  8 

pi  =  4.0*atan(1.0) 
numplts  =  4 
yscal  =  'STD' 


C  FOR  dsorce  =  'F'  READ  THE  INPUT  SEQUENCE  FROM  THE  INEUT  FILE. 
C  FOR  dsorce  =  'S'  CALL  sample  TO  GENERATE  THE  INHIT  SEQUENCE. 
C  THE  INPUT  SEQUENCE  IS  STORED  IN  THE  ARRAY  xin()  . 

if (dsorce.eq. 'F' )  then 
read(l,100l)  (xin(i) ,i=0,N-l) 
else 

cell  sample (xin,N) 
endif 

C  FOR  TEST  MODE  ECHO  INPUT  DATA  ONTO  THE  MONITOR  (UNIT  =  *)  . 

if  (mode.eq. ' Y ' )  then 
write (*,1016)  infile 
if (N.  It. 8)  k=N 

write (*,1017)  N,  dsorce,  option 
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iwrite(3,*)  'SAMPLE  #  * 
write(3,*)  'REAL  xin() ' 
do  55  i=0,  N-l 
nn  =  i 

write(3,2010)  nn,  real(xin(i)) 

55  continue 

1  write (3, 2001)  N 

write (3,*)  'INPUT  SEQUENCE  (IMAGINARY)' 

I  write(3,*)  'SAMPLE  #  ' 

write(3,*)  'IMAG  rin() ' 
do  56  i=0,  N-l 
nn  =  i 

write(3,2010)  nn,  aimag(xin(i) ) 

56  continue 

C  WRITE  INHJT  DATA  INK)  FILE:  DFT.OUT. 

write ( 2 , 1016)  infile 
write (2, 1017)  N,  dsorce,  option 
write (2, 1014) 
write (2, 1015) 
do  2  i=0,  N-l 
write(2,1020)  i,  xin(i) 

2  continue 

C  CALL  dft  OR  invdft  TO  PERFORM  THE  SELECTED  COMPUTATION . 


if (option. eq. ' INV' )  then 
call  invdft (N,xin,xout) 
else 

call  dft(N,xin,xout) 
endif 


C  TRANSFORM  OUTPUT  DATA  INTO  EXPONENTIAL  F0IM:  xmg*EXP(  j*xph) 
C  PHASE  xph()  IS  EXPRESSED  IN  DEGREES. 

do  60  i=0,  N-l 
xmag(i)  =  cabs(xout(i) ) 
if (abs(real(xout(i) ) ) .lt.l.0e-15)  then 
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if(abs(aimag(xout(i)))  .le.l.0e-15)  xph(i)=0.0 
if (aimag(xcut(i) ) .gt.l.0e-15)  xph(i)=90.0 
if(aimag(xout(i))  .lt.-1.0e-15)  xph(i)=-90.0 
else 

xph(i)  =  (180. 0/pi)  *atan2(aimag(xout(i))  ,real(xout(i) ) ) 
endif 

60  continue 

C  WRITE  THE  CXJTHJT  DATA  INK)  FIXE:  DFT.DAT. 

write (3, 2001)  N 
write (3,*)  ' OUTPUT  MAGNITUDE' 
write(3,*)  'SAMPLE  #' 
write (3,*)  'MAGNITUDE' 
do  57  i=0,  N-l 
nn  *  i 

write (3 ,2010)  nn,  xmag(i) 

57  continue 

write (3, 2001)  N 
write(3,*)  'OUTPUT  PHASE' 
write (3,*)  'SAMPLE  #' 
write(3,*)  'PHASE  (DEG)' 
do  58  i=0,  N-l 
nn  =  i 

write (3, 2010)  nn,  xph(i) 

58  continue 

C  WRITE  THE  OUTEUT  DATA  INK)  FILE:  DFT.OUT. 

write(2,1025) 
do  5  i=0,  N-l 

write(2,1030)  i,  xout(i) ,  xmag(i),  xph(i) 

5  continue 


write (*,1019) 

999  close (unit=l) 
close (unit=2) 
close (unit=3) 

if(ierr.gt.O)  then 
write(*,lii6)  infile,  ierr 
endif 

C  ********  INPUT  P0PMA.T  ******** 


1000  format (i3, til, al,t2l,a3) 

1001  format(2fl0.0) 
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c  ******************************** 


1009  format  (lx,  'dsorce  =  1  ,al,2x,  'Error,  illegal  value  for  dsorce. ' ) 

1010  format  ( lx, 'N  =  '  ,i3,2x, 'Error,  value  of  N  not  allowed.') 

1011  format  (lx, 'option  =  '  ,a3,2x, 'Error,  illegal  value  for  option.') 

1012  0format(/, '  THE  FIRST  '  ,il, '  VALUES  OF  xin()  ARE  LISTED  BELOW.', 
1/,  '  VERIFY  THAT  THE  DATA  IS  CORRECT. ' ,/) 

1014  format  (// ,  tl9 , '  INPUT  DATA ' ,  //) 

1015  format(/,t4, 'SAMPLE  #' ,tl5, 'REAL' ,t29, 'IMAGINARY' ,/) 

1016  f ormat (//////, '  INPUT  DATA  SOURCEFILE:  ',al2) 

1017  format('  VALUE  OF  N  =  ' ,i3,5x, 'dsorce  =  ' ,al,5x, 'option  =  ',a3) 

1019  0forrnat(//, '  TABULAR  OUTPUT  DATA  IS  STORED  IN  FILE:  DFT.0UT. ' , 
1/, '  PLOTTING  DATA  IS  STORED  IN  FILE:  DFT.DAT.  ') 

1020  format(t6,i3,tl3,2(el2.6,2x) ) 

1025  Oformat (/// , t33 ,  'OUTPUT  DATA'  ,//,t4,  'SAMPLE  #'  ,tl7,  'REAL' , 

lt33,  'IMAGINARY'  ,t49,  'MAGNITUDE'  ,t67,  'PHASE'  ,/,t65,  '  (DEGREES)  ') 
1030  format(t5,i3,tl5,4(el2.6,4x) ) 

1115  Oformat  (lx,  'DO  YOU  WISH  TO  RUN  THIS  PROGRAM  IN  TEST', 

1'  MODE  ?  (Y/N)  <CR>  :  ',\,) 

1116  Oformat (/// , lx,  'ERROR  OPENING  INPUT  FILE:  '  ,al2,/,lx,  'PROGRAM' , 
1'  TERMINATED.  '  ,//,lX,  'ERROR  CODE: « ,i4, /////) 

1117  format (al) 

1118  Oformat (/////, lx,  'TYPE  THE  NAME  OF  YOUR  DATA  FIIE  FOLLOWED', 

1'  BY  <CR>. ' ,/,  '  IF  YOU  DESIRE  TO  MAKE  A  TEST  RUN  USING  THE' , 

2'  SAMPLE  DATA  ALREADY  STORED',/,'  IN  THE  FIIE:  DFT.TST' , 

3'  TYPE:  DFT.TST  <CR>',/, '  FILENAME:  *,\,) 

1119  format (al2) 

2000  format (il) 

2001  format (i3) 

2010  format (el2 . 6 , 2x, el2 . 6) 

end 


C  SUBROUTINE:  invdft 


C  PURPOSE:  THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY 
C  Xin()  ,  COMPUTES  THE  INVERSE  DFT  OF  THE  ARRAY,  AND 
C  RETURNS  THE  RESULTS  IN  THE  ARRAY  xoutQ  . 


subroutine  invdft (N , xin , xout ) 
complex  xin(0:N-l) ,  xout(0:N-l) 

en  =  N 
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C  OCMPUTE  THE  OCMPLEX  CONJUGATE  OF  THE  INPUT  SEQUENCE. 

do  70  i=0,  N-l 
xin(i)  =  oonjg(xin(i) ) 

70  continue 

C  COMPUTE  THE  DISCRETE  FOURIER  TRANSFORM  OF  THE  ARRAY, 
call  dft(N,xin,xout) 

C  COMPOTE  THE  COMPLEX  CONJUGATE  OF  THE  RESULTING  ARRAY. 

do  80  i=0,  N-l 
xout(i)  =  conjg(xout(i)  )/en 
80  continue 

return 

end 


C  SUBROUTINE:  dft 


PURPOSE:  THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  CXMPLEX  ARRAY 
xin() ,  OCMPOTES  THE  DISCRETE  FOURIER  TRANSFORM  (DFT) 

OF  THE  ARRAY,  AND  RETURNS  THE  RESULTING  SEQUENCE  IN  THE 
COMPLEX  ARRAY  xout()  . 


subroutine  dft(N,xin,xout) 

complex  xin(0:N-l) ,  xout(0:N-l) ,  w,  win 

pi  =  4.0*atan(1.0) 
en  =  N 

if(N-l.eq.O)  then 
xout(O)  =  xin(O) 
else 

alpha  =  2 . 0*pi/en 
w  =  anplx (cos (alpha) , -sin (alpha) ) 
do  100  k=0,  N-l 
wm  =  w**k 
xout(k)  =  xin(N-l) 
do  50  l=N-2,  0,  -1 

xcut(k)  =  xout(k)  *wm  +  xin(l) 

50  continue 

100  continue 
endif 

return 

end 


c 


SUBROUTINE:  sample 


V 


C  HJRPOSE:  THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  SAMPLES 
C  OF  A  OCNTINUCUS  FUNCTION.  THE  SAMPLES  ARE  RETURNED 
C  TO  THE  MAIN  FROGRAM  IN  THE  ARRAY  xin() . 


subroutine  sample(xin,N) 
complex  xin(0:N-l) 

pi  =  4.0*atan(1.0) 
en  =  N 

C*********************************************************************** 

C  DEVELOP  THE  SAMPLING  ALGORITHM  IN  THIS  SPACE.  THE  STATEMENTS 
C  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  PULES  AND  MAY  USE 
C  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  SINQ,  OOS()  ,  ABS()  . . . 

C  AN  EXAMPLE  IS  SHOWN  BELOW.  THE  INPUT  SEQUENCE  MUST  BE  STORED  IN 
C  THE  ARRAY  xin()  .  DFT.FOR  MUST  BE  CCMPILED  AGAIN  BEFORE  EXECUTION 
C  IF  THIS  SUBROUTINE  IS  USED. 

C 

C  ***  EXAMPLE  *** 

C 

C  do  3  i=0,  N-l 

C  if(i.le.4)  then 

C  xin(i)  =  cnplx(i,0.0) 

C  else 

C  xin(i)  =  amplx(0. 0,0.0) 

C  endif 

C  3  continue 

Qirit1c1fk1t1t1fk-k1fk1cirk1fk'k*-kirk1tirk1rk1t1rk1t1flti(1e*1fk-k-k*ic1i1fk1rk1t1rk1c1c1rk-k,k1tirk1rk*,kie1rk1rkirkie 


return 

end 


ooooooooogooooooooonoonoooooooooooooooooooooooooo 


VERSION:  2/03/88 


FRDGRM.FOR 


PURPOSE:  THIS  ERQGRAM  OCMFUTES  THE  PERIODOGRAM  OF  A  CAUSAL 
SEQUENCE  USING  THE  DISCRETE  FOURIER  TRANSFORM  (DFT) 
TECHNIQUE.  THE  EQUATION  FOR  THE  COMPUTATION  OF  THE 
N-FOINT  PERIODOGRAM  IS:  Sxx(k)  =  xk(k)  *Conjg(xk(k)  )/N 
WHERE  THE  ARRAY  xk()  CONTAINS  THE  VALUES  OF  THE  DFT 
OF  THE  INPUT  ARRAY  xn() ,  I.E.;  xk()  =  DFT[xn()  ] .  THE 
PROGRAM  CONSISTS  OF  A  MAIN  PROGRAM  AND  TWO  SUBROUTINES. 
THE  SUBROUTINE  dft  CONFUTES  THE  DISCRETE  FOURIER 
TRANSFORM  OF  THE  INPUT  ARRAY,  AND  THE  SUBROUTINE 
sample  ALLOWS  THE  USER  TO  GENERATE  THE  INPUT  DATA  BY 
WRITING  THE  APPROPRIATE  EQUATIONS.  IF  THE  USER  ELECTS 
TO  GENERATE  THE  INPUT  DATA  BY  USING  THE  SUBROUTINE 
sample,  THE  EQUATIONS  MUST  BE  WRITTEN  INTO  THE 
SUBROUTINE  USING  STANDARD  FORTRAN  77  EXECUTABLE  STATE¬ 
MENTS  AND  THE  INPUT  DATA  MUST  BE  STORED  IN  THE  ARRAY 
xn() .  AISO,  IF  EQUATIONS  ARE  WRITTEN  INTO  sample, 

THE  PROGRAM  MUST  BE  COMPILED  AGAIN  BEFORE  EXECUTION.  THE 
RESULTS  OF  THE  PERIODIOGRAM  COMPUTATION  ARE  STORED  IN 
THE  ARRAY  Sxx()  .  THE  USER  HAS  THE  OPTION  OF  CAUSING  THE 
OUTPUT  TO  BE  CONVERTED  TO  DECIBELS.  THE  USER  AISO  HAS 
THE  OPTION  OF  SELECTING  ONE  OF  TWO  OPERATING  MODES:  BATCH 
OR  TEST.  IN  BATCH  MODE  THE  AMOUNT  OF  INTERACTION  WITH 
THE  USER  IS  MINIMIZED  AND  IT  IS  ASSUMED  THAT  THE  INPUT 
PARAMETERS  HAVE  BEEN  STORED  IN  THE  INPUT  FILE  'FRDGRM.rN' . 
IN  THE  TEST  MODE  THE  USER  IS  PROMPTED  FOR  THE  NAME 
OF  THE  INPUT  FILE  OR  HAS  THE  OPTION  TO  PERFORM  A  TRIAL 
RUN  USING  THE  DATA  STORED  IN  THE  FILE  'PRDGRM.TST' . 

IT  IS  RECOMMENDED  THAT  FIRST-TIME  USERS  SELECT  TEST 
MODE  WHEN  PROMPTED,  AND  MAKE  A  TRIAL  HUN  WITH  THE  FRE- 
STORED  DATA.  ADDITIONALLY,  THE  TEST  MODE  ECHOES 
PORTIONS  OF  THE  INPUT  DATA  ONTO  THE  MONITOR  TO  ALLOW 
VERIFICATION  OF  US  ACCURACY.  THE  OUTPUT  IS  STORED  IN 
TABULAR  FORM  IN  THE  FILE  'FRDGRM.OUT'  AND  IN  A  FORM 
SUITABLE  FOR  PLOTTING  IN  THE  FIIE  'DFT. DAT' . 


*****************************  INPUT  ******************************** 


THIS  FROGRAM  ASSUMES  THAT  THERE  ARE  »N'  COMPLEX  DATA  POINTS  IN  THE 
INPUT  SEQUENCE.  THE  INPUT  SEQUENCE  IS  ASSUMED  TO  BE  DEFINED  IN 
THE  INTERVAL:  0  TO  N  -  1.  IF  THE  INPUT  SEQUENCE  CONSISTS  OF  'REAL' 
NUMBERS,  THE  IMAGINARY  PART  IS  STORED  AS  0.0.  THE  VALUE  'N'  AS  WELL 
AS  THE  OTHER  PARAMETERS  DESCRIBED  BELOW  SHOULD  BE  STORED  IN  THE 
INPUT  FILE  'FRDGPM.IN' .  ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS 
PROGRAIL  REQUIRE  FORMATTED  INPUT.  PARTICULAR  ATTENTION  SHOULD  BE 


C  PAID  TO  THESE  FORMATS,  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT  TO 
C  DISTINGUISH  BETWEEN  'REAL'  AND  INTEGER  DATA. 

C 

C 


c 

NAME 

TYPE 

RANGE  (ARRAYS) 

RESTRICTIONS 

c 

N 

integer 

1  <=  N  <=  256 

c 

dsorce 

CHARACTER 

•F'  OR  'S' 

c 

yscal 

CHARACTER 

'STD'  OR  'LOG' 

c 

p 

xn() 

COMPLEX 

0,1,2. . .N-l 

1  <=  N  <=  256 

c 

WHERE: 

C 

C  N  =  AN  INTEGER  THAT  SPECIFIES  THE  NUMBER  OF  VAHJES  IN  THE  INPUT 
C  SEQUENCE. 

C 

C  dsorce  =  A  CHARACTER  VALUE  OF  'F'  OR  'S'  DENOTING  WHETHER  THE 
C  INPUT  DATA  IS  TO  BE  READ  FROM  A  FIIE  (F)  OR  TO  BE 

C  GENERATED  (S)  BY  A  USER-DEFINED  EQUATION  LOCATED  IN  THE 

C  SUBROUTINE  sample. 

C 

C  yscal  =  A  CHARACTER  STRING  SPECIFYING  THE  DESIRED  MAGNITUDE  OPTION 
C  'STD'  WILL  PRODUCE  STANDARD  MAGNITUDE  OUTPUT; 

C  'LOG'  WILL  PRODUCE  MAGNITUDE  EXPRESSED  IN  DECIBELS  (dB)  . 

C 

C  xn() 

C 
C 
C 
C 
C 
C 
C 
C 

C  NOTE:  THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN  PROGRAM 
C  FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********. 

C  THE  FORM  OF  THE  INPUT  DATA  FILE  IS: 

C 

C  LINE#  ENTRIES  FORMAT 


=  THE  ARRAY  OF  COMPLEX  INPUT  DATA.  IF  dsorce  =  'F* 

IS  SPECIFIED  THE  USER  MUST  SUPPLY  THE  N  INPUT 
VALUES  IN  THE  FILE.  IF  dsorce  =  'S'  THEN  THE  USER 
HAS  ELECTED  TO  GENERATE  THE  INPUT  SEQUENCE  BY 
WRITING  THE  APPROPRIATE  FORTRAN  STATEMENTS  IN  THE 
SPACE  ALLOCATED  IN  SUBROUTINE  sample.  IF  THIS  METHOD 
OF  DATA  GENERATION  IS  ELECTED  THE  PROGRAM  MUST  BE 
RECOMPILED  BEFORE  EXECUTION. 


C  1  N,  dsorce,  yscal  i4,tll,al,t21,a3 

C  2...NKL  xn()  2fl0.0 

C 
C 

C  NOTES  1.  LINES  2...N+1  ARE  ONLY  REQUIRED  IF  dsorce  =  'F' . 

C  IF  dsorce  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE 

C  THE  N  VALUES  OF  xn()  IN  SUBROUTINE  sample.  THE  USER 

C  MUST  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS  IN 

C  SUBROUTINE  sample  AND  THE  VALUES  MUST  BE  STORED  IN  THE 

C  ARRAY  xn()  . 

C 


onoooo 


2.  THE  FORMAT  flO.O  USED  FOR  INPUT  DATA  PERMITS  THE 

DECIMAL  POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  TEN 
COLUMNS  AND  AISO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE 
USED  (E.G. ,  3146.2  =  3.1462E+03). 


C*****************************  OUTPUT  ******************************* 

C 

C 

C  THE  INPUT  DATA  AS  WELL  AS  THE  OUTPUT  DATA  ARE  STORED  IN  TABULAR 
C  PCRM  IN  THE  FHE  'FRDGRM.OUT' .  ADDITIONALLY,  THE  INPUT  SEQUENCE 
C  (REAL  AND  IMAGINARY)  AND  THE  OUTPUT  SEQUENCE  ARE  STORED  IN  THE  FILE 
C  'FRDGRM.DAT'  TO  FACILITATE  PLOTTING  BY  A  SEPARATE,  USER  SUPPLIED 
C  PROGRAM.  THE  FORMAT  OF  THE  DATA  IN  'FRDGRM.DAT'  IS:  el2.6,2x,el2.6. 

C  THE  FIRST  ENTRY  CORRESPONDS  TO  THE  ORDINATE  VAIUE  AND  THE  SECOND 
C  ENTRY,  THE  ABSCISSA  VALUE.  ADDITIONAL  HEADER  INFORMATION  IS  WRITTEN 
C  INTO  'FRDGRM.DAT'  TO  ALLOW  FOR  CONTROL  AND  LABELING  OF  EACH  PLOT. 

C 

C 

c*****************************  example  ******************************* 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THE  INPUT  PARAMETERS  BELOW  ARE  STORED  IN  THE  INPUT  FTIE 
'PRDGRM.TST' .  THERE  ARE  EIGHT  POINTS  IN  THE  INPUT  SEQUENCE  AND 
THE  GOAL  IS  TO  CALCULATE  THE  PERIODOGRAM  OF  THE  DATA. 


005  F  STD 

0.0  0.0 

1.0  0.0 

2.0  0.0 

3.0  0.0 

4.0  0.0 


THE  RESULTING  OUTPUT  FILE  'FRDGRM.DAT'  IS: 

INPUT  DATA  SOURCEFTLE:  PRDGRM.TST 

VALUE  OFN  =  5  dsorce  *  F  MAGNITUDE  OPTION  =  STD 


n 

o 

1 

2 

3 

4 


INPUT  DATA 
xn() 


REAL 

. 0000E+00 
. 1000E+01 
•2000E+01 
. 3000E+01 
.4000E+01 


IMAGINARY 
. 0000E+00 
. 0000E+00 
. 0000E+00 
. 0000E+00 
. 0000E+00 


192 


OUTPUT  DATA 


Sxx(k) 

. 2000E+02 
. 3618E+01 
. 1382E+01 
. 1382E+01 
. 3618E+01 


C  FOR  IUUSTRATIVE  PURPOSES  THE  INPUT  SEQUENCE  xn()  COULD  HAVE 
C  BEEN  GENERATED  BY  SPECIFYING  dsorce  =  'S'  AND  WRITING  THE 
C  APPROPRIATE  FORTRAN  STATEMENTS  INTO  SUBROUTINE  sample.  THE 
C  STATEMENTS  THAT  OOUID  BE  USED  TO  ACCOMPLISH  THIS  ARE  WRITTEN 
C  INTO  THE  SUBROUTINE  BUT  ARE  'COMMENTED  CUT' . 


C*************************  MAIN  PROGRAM  ****************************** 


character  infile*12,  ylabl*14,  yscal*3,  mode*!,  dsorce* 1 

character  title*16 

complex  xn(0:255) ,  xk(0:255) 

real  Sxx(0:255),  nn,  kk 

C  PROMPT  USER  FOR  MODE:  BATCH  OR  TEST. 

write (*,1115) 
read(*,1117)  mode 

if  ((mode.eq.  'y')  .or.  (mode.eq. ' Y* ) )  then 
mode  =  'Y' 
write (*,1118) 
read (*,1119)  infile 
else 

infile  =  'PRDGRM.IN' 
endif 

C  UNIT=1  DEFINED  AS  INPUT  FIIE.  UNITS=2,3  DEFINED  AS  OUTPUT  FILES. 

open  (unit=l ,  file=infile,  status= 1  old ' ,  iostat=ierr ,  err=999) 
open  (unit=2 ,  file= '  FRDGFM.  OUT ' ) 
open  (unit=3 ,  f  ile= '  FRDGFM.  DAT ' ) 

C  READ  INPUT  PARAMETERS  AND  CONDUCT  ERROR  CHECKS. 

read(l,1000)  N,  dsorce,  yscal 


1  .\W 1 


u  u  u 


if(  (N.lt.l)  .or.  (N.gt.256) )  then 
write (*,1010)  N 

step  'The  allowed  values  for  N  are:  1  <=  N  <=  256* 
erriif 

if  ( (dsorce.eq. ' f  * )  .or.  (dsorce.eq.  'F') )  then 
dsorce  =  'F' 

elseif ((dsorce.eq. 's')  .or.  (dsorce.eq. 'S') )  then 
dsorce  =  'S' 
else 

write(*,1009)  dsorce 

stop  'The  allowed  values  for  dsorce  are:  "S"  or  "F* 1 . 1 
endif 

if ( (yscal.eq. 'std' ) .or. (yscal.eq. 'STD' ) )  then 
title  =  '  Feriodogram  ' 
yscal  =  'STD' 
ylabl  =  '  Sxx(k)  ' 

elseif  ( (yscal.eq.  'log' )  .or.  (yscal.eq.  'KG' ) )  then 
title  =  '  log  Feriodogram' 
yscal  =  'KG' 
ylabl  =  'Sxx(k)  (dB) ' 
else 

write (*,1128)  yscal 

stop  'Error,  yscal  must  be  the  string  '  'STD' '  or  '  'IDG' ' . ' 
endif 

FOR  dsorce  =  'F'  READ  THE  INPUT  SEQUENCE  FROM  THE  INFOT  FILE. 
FOR  dsorce  =  'S'  CALL  sample  TO  GENERATE  THE  INFOT  SEQUENCE. 
THE  INFOT  SEQUENCE  IS  STORED  IN  THE  ARRAY  xn()  . 

if (dsorce.eq. ' F ' )  then 
read(l,1001)  (xn(i) ,i=0,N-l) 
else 

call  sanple(xn,N) 
endif 

C  DEFINE  CONSTANTS 

k  =  8 
en  =  N 

pi  =  4.0*atan(1.0) 
nunplts  =  3 

C  FOR  TEST  MODE  ECHO  INKJT  DATA  ONTO  MONITOR  (UNIT  =  *)  . 

if (mode.eq. 'Y')  then 
write(*,1016)  infile 
if (N. It. 8)  k  =  N 
write(*,1017)  N,  dsorce,  yscal 
write(*,1012)  k 
write (*,1015) 
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do  4  i=0,  k-1 

write(*,1020)  i,  xn(i) 
continue 
endif 

C  WRITE  THE  INPUT  SEQUENCE  INTO  FIIE:  ERDGFM.DAT. 

write (3, 2000)  nunplts 
write(3,2001)  N 

write(3,*)  'INPUT  SEQUENCE  (REAL)' 
write(3,*)  'SAMPLE#  (n)' 
write(3,*)  'REAL  (xn) ' 
do  55  i=0,  N-l 
nn  =  i 

write(3,2010)  nn,  real(xn(i)) 

55  continue 

write (3, 2001)  N 

write(3,*)  'INPUT  SEQUENCE  (IMAGINARY)' 
write(3,*)  'SAMPLE#  (n) ' 
write(3,*)  'IMAGINARY  (xn) ' 
do  56  i=0,  N-l 
nn  =  i 

write(3,2010)  nn,  aimag(xn(i) ) 

56  continue 

C  WRITE  INPUT  DATA  INTO  OUTPUT  FIIE:  PRDGFM.OUT. 

write (2, 1016)  infile 

write (2, 1017)  N,  dsorce,  yscal 

write (2, 1014) 

write (2, 1015) 

do  59  i=0,  N-l 

write(2,1020)  i,  xn(i) 

59  continue 

C  CALL  dft  TO  OCMEUTE  THE  DISCRETE  FOURIER  TRANSFORM  OF  THE 
C  INPUT  SEQUENCE. 

call  dft(N,xn,xk) 

C  THE  FERIODOGRAM  COMPUTATION  RESULTS  FROM  THE  EQUATION: 

C  Sxx(k)  =  xk(k)*conjg(xk(k))/N.  THE  SEQUENCE  Sxx(k)  IS 
C  CONVERTED  TO  DECIBELS  IF  yscal  =  'LOG' . 

do  60  k=0,  N-l 

Sxx(k)  =  xk(k)*conjg(xk(k) )/en 


^BVVVVi/vvwTvavvsvnvvTirwvwu  mvTuwui 


>t* 

% 


*1 


II 


>  * 

■h\ 


* 

*!• 

t‘2» 

*,a 

ill 


if  (yscal.eq.  'LOG' )  then 
if (Sxx(k) .gt.l.0e-10)  then 
Sxx(k)  =  10.0*logl0(Sxx(k) ) 
else 

Sxx(k)  =  -100.0 
endif 
endif 

60  continue 

C  WRITE  RESULTS  INTO  OUTPUT  FILE:  FRDGRM.DAT. 

write (3, 2001)  N 
write (3, 2002)  title 
write(3,*)  •  k  ' 
write (3,*)  ylabl 
do  57  k=0,  N-l 
kk  =  k 

write(3,2010)  kk,  Sxx(k) 

57  continue 

C  WRITE  RESULTS  INTO  OUTPUT  FILE:  FRDGRM.OUT. 

write (2, 1025)  ylabl 
do  5  k=0,  N-l 
write (2, 1030)  k,  Sxx(k) 

5  continue 

write (*,1019) 

999  close (unit=l) 
close  (unit=2) 
close (unit=3) 

if (ierr.gt.0)  then 
write(*,1116)  infile,  ierr 
endif 

C  ********  INPUT  FORMAT  ******** 

1000  format (i3, til, al,t21,a3) 

1001  format (2f 10.0) 

c  ******************************** 

1009  format (lx, 'dsorce  =  1 ,al,2x, 'Error,  illegal  value  for  dsorce. ') 

1010  format ( lx, 'N  =  ',i3) 

1012  0format(/,'  THE  FIRST  '  ,il,  '  VALUES  OF  xn()  ARE  LISTED  BELOW.  ' , 
V,  '  VERIFY  THAT  THE  DATA  IS  CORRECT.  ' ,/) 

1014  format (//,t22, 'INFUT  DATA' ,/,t25, ’xn() ' ,//) 

1015  format (t8, 'n',tl5, 'REAL' , t28, 'IMAGINARY') 

1016  f ormat (//////, '  INPUT  DATA  SOUKCEFILE:  ',al2) 

1017  Oformat ('  VALUE  OF  N  -  ',i3,5x,  'dsorce  =  ',al,5x,  'MAGNITUDE  ', 

1' OPTION  =  '  ,a3) 


+  **  MAj/WLiLjL  »>  >*■ 


0 format (//,  '  TABULAR  OUTPUT  DATA  IS  STORED  IN  FILE:  PRDGRM.OUT.  ' , 
1/,'  PLOTTING  DATA  IS  STORED  IN  FIIE:  PRDGEM.DAT') 
format(4x,i4,2(4x,el0.4) ) 

format (///,tl9,  'OUTPUT  DATA',//,t7,  'k',tl2,all) 
format  (t5 ,  i3,4x,  elO .  4 ) 

Oformat  (lx,  'DO  YOU  WISH  TO  RUN  IKES  PROGRAM  IN  TEST' , 

1'  MODE  ?  (Y/N)  <CR>  :  ',\,) 

Oformat (/// , lx,  'ERROR  OPENING  INPUT  FIIE:  '  ,al2,/,lx,  'PROGRAM' , 

1'  TERMINATED. ',//, lx, 'ERROR  CODE:  *,i4, /////) 
format  (al) 

Oformat (/////, lx,  'TYPE  THE  NAME  OF  YOUR  DATA  FIIE  FOLLOWED', 

1'  BY  <CR>.  • ,/,  '  IF  YOU  DESIRE  TO  MAKE  A  TEST  PUN  USING  THE' , 

2'  SAMPLE  DATA  ALREADY  STORED',/,  '  IN  THE  FILE:  FRDGRM.TST' , 

3'  TYPE:  PRDGRM.TST  <CR>',/,'  FILENAME:  \\,) 

format(al2) 

format (//////, t2, 'The  value  of  yscal  is:  ' ,a3, ' . ' ) 

format (il) 

format (i3) 

format (al6) 

format (a8) 

format (el2 . 6 , 2x, el2 . 6) 


SUBROUTINE:  dft 


C  PURPOSE:  THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY 
C  xn() ,  COMPUTES  THE  DISCRETE  FOURIER  TRANSFORM  (DFT) 

C  OF  THE  ARRAY,  AND  RETURNS  THE  RESULTING  SEQUENCE  IN  THE 

C  COMPLEX  ARRAY  xk()  . 


subroutine  dft(N,xn,xk) 

complex  xn(0:N-l) ,  xk(0:N-l) ,  w,  wm 


pi  =  4.0*atan(1.0) 
en  =  N 


if(N-l.eq.O)  then 
xk(0)  =  xn(0) 
else 

alpha  =  2 . 0*pi/en 
w  =  arplx( cos  (alpha) , -sin  (alpha) ) 
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do  100  k=0,  N-l 
wm  =  w**k 
xk(k)  =  xn(N-l) 

do  50  l=N-2,  0,  -1 
xk(k)  =  xk(k)*wm  +  xn(l) 
continue 
continue 
endif 

return 

end 


PURPOSE: 


SUBROUTINE:  sample 


THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  SAMPLES 
OF  A  CONTINUOUS  FUNCTION.  THE  SAMPLES  ARE  RETURNED 
TO  THE  MAIN  PROGRAM  IN  THE  ARRAY  xn()  . 


Subroutine  sample  (xn,N) 
complex  xn(0:N-l) 

pi  =  4.0*atan(1.0) 
en  =  N 

c*********************************************************************** 

C  DEVELOP  THE  SAMPLING  ALGORITHM  IN  THIS  SPACE.  THE  STATEMENTS 
C  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  RULES  AND  MAY  USE 
C  FORTRAN  77  INIRINSIC  FUNCTIONS  SUCH  AS:  SIN() ,  COS() ,  ABS()  . . . 

C  AN  EXAMPLE  IS  SHCWN  BELOW.  THE  INPUT  DATA  MUST  BE  STORED  IN  THE 
C  ARRAY  xn()  .  IF  THIS  SUBROUTINE  IS  USED,  ' FRDGFM. FOR 1  MUST  BE 
C  COMPILED  AGAIN  BEFORE  EXECUTION. 

C 

C  ***  EXAMPLE  *** 

C 

C  do  3  i=0,  N-l 
C  xn(i)  =  anplx(i,0.0) 

C  3  continue 

C*********************************************************************** 


return 

end 


| 


VERSION:  2/03/88 


C 

C 

C 

C  PURPOSE: 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CONCQRDT.POR 


THIS  PROGRAM  PERFORMS  ANY  ONE  OF  THE  FOLLOWING  FOUR  i 

aCMPUTATICNS  GIVEN  TWO  CCMPIEX  ARRAYS  OF  INPUT  DATA: 

LINEAR  CONVOLUTION  (ICON)  ;  LINEAR  CORRELATION  (IOOR)  ; 

CIRCULAR  CONVOLUTION  (COON)  ;  OR  CIRCULAR  CORRELATION 
(CCOR) .  CONVOLUTION  IS  PERFORMED  BY  COMPUTING  THE  DFT 
OF  EACH  ARRAY,  MULTIPLYING  THE  DFTs  TOGETHER  AND  THEN 
TAKING  THE  INVERSE  DFT  OF  THE  RESULTING  ARRAY. 

CORRELATION  IS  PERFORMED  IN  THE  SAME  MANNER  EXCEPT 
THAT  THE  CONJUGATE  OF  THE  DFT  OF  ARRAY  #1  IS  MULTIPLIED 
BY  THE  DFT  OF  ARRAY  #2.  THE  RESULT  OF  THIS  OCMEUIATION, 

GIVEN  THE  INPUT  SEQUENCES  Xl  AND  X2,  IS  THE  CORRELATION 
SEQUENCE  Rxlx2 .  THE  PROGRAM  CONSISTS  OF  A  MAIN 
PROGRAM  AND  FIVE  SUBROUTINES.  THE  SUBROUTINE  zerapad 
EXTENDS  THE  INPUT  ARRAY  PASSED  TO  IT  BY  ADDING  AN 
APPROPRIATE  NUMBER  OF  ZEROES  TO  THE  ORIGINAL  INPUT  DATA 
TO  CREATE  AN  ARRAY  OF  SUITABLE  LENGTH  FOR  THE  LINEAR 
CONVOLUITON/CORRELATION  ALGORITHMS.  THE  SUBROUTINE 
dft  COMPUTES  THE  DISCRETE  FOURIER  TRANSPOEM  OF  AN 
ARRAY.  THE  SUBROUTINE  invdft  COMPUTES  THE  INVERSE 
DISCRETE  FOURIER  TRANSFORM  OF  AN  ARRAY.  THE  TWO 
SUBROUTINES  sanpll  AND  sanpl2  ALLOW  THE  USER  TO 
GENERATE  EITHER  OF  THE  INPUT  ARRAYS  BY  WRITING  THE 
APPROPRIATE  EQUATIONS.  IF  THE  USER  CHOOSES  TO 
GENERATE  THE  INPUT  DATA  BY  USING  EITHER  OF  THE  sanpl 
SUBROUTINE  (S) ,  THE  EQUATIONS  MUST  BE  WRITTEN  INTO  THE 

SUBROUTINE  (S)  USING  STANDARD  FORTRAN  77  EXECUTABLE  I 

STATEMENTS  AND  THE  VALUES  GENERATED  MUST  BE  STORED  ; 

IN  THE  ARRAYS  xnl()  AND  xn2() .  THE  USER  HAS  THE 
OPTION  OF  SELECTING  ONE  OF  TWO  OPERATING  MODES:  BATCH 
OR  TEST.  IN  BATCH  MODE  THE  AMOUNT  OF  INTERACTION 
WITH  THE  USER  IS  MINIMIZED  AND  IT  IS  ASSUMED  THAT  THE 
INPUT  PARAMETERS  HAVE  BEEN  STORED  IN  THE  INPUT  FILE 
'OONOORDT.IN’ .  IN  TEST  MODE  THE  USER  IS  PROMPTED 
FOR  THE  NAME  OF  THE  INPUT  FILE  AND  HAS  THE  OPTION 
TO  PERFORM  A  TRIAL  RUN  USING  THE  DATA  STORED  IN 
THE  FTIE  '  OQNCORDT.  1ST ' .  IT  IS  RECOMMENDED  THAT  FIRST¬ 
TIME  USERS  SELECT  THE  TEST  MODE  AND  PERFORM  A  TRIAL 

RUN  WITH  THE  PRESTOFED  DATA.  THE  TEST  MODE  ECHOES  j 

PORTIONS  OF  THE  INPUT  DATA  ONTO  THE  MONITOR  TO  ALLOW 

VERIFICATION  OF  ITS  ACCURACY.  THE  OUTPUT  OF  THE  ! 

PROGRAM  ' OONGORDT . FOR '  IS  STORED  IN  THE  ARRAY  xn3()  .  j 

THE  OUTPUT  IS  STORED  IN  TABULAR  FORM  IN  THE  FILE  ! 

'OONCQRDT. OUT'  AND  IN  A  FORM  SUITABLE  FOR  PLOTTING 

IN  THE  FILE  'CONCORDT.DAT'.  i 

I 

i 

i 


C*****************************  n  f  [ 1  ********************************* 


nooononoooonoonooooooonooooooooooooooooooooooooo 


THIS  PROGRAM  ASSUMES  THAT  THERE  ARE  TWO  SEQUENCES  OF  INPUT  DATA 
STORED  IN  THE  ARRAYS  xnl()  AND  xn2()  OF  IENGHH  'Nl'  AND  'N2', 
RESPECTIVELY.  THE  ARRAYS  ARE  ASSUMED  TO  BE  COMPLEX.  IF  THE 
ARRAYS  CONTAIN  'REAL'  VALUES  CNIY,  THEN  THE  IMAGINARY  PART  IS 
STORED  AS  0.0.  THE  INPUT  SEQUENCES  ARE  ASSUMED  TO  BE  DEFINED 
IN  THE  INTERVALS  0  TO  Nl-1  AND  0  TO  N2-1,  RESPECTIVELY. 

THIS  PROGRAM  ALLOWS  THE  USER  THE  OPTION  OF  EITHER  READING  THE 
THE  INPUT  ARRAYS  ERCM  A  DATA  FHE  OR  OF  GENERATING  THE  INPUT 
VALUES  FROM  AN  ITERATIVE  EQUATION  IN  THE  sairpl  SUBROUTINE  (S) . 

THE  PARAMETERS  DESCRIBED  BETOW  ALLOW  THE  USER  TO  SELECT  THE 
DESIRED  OPTIONS  AND  THESE  PARAMETERS  MUST  BE  STORED  IN  THE  INPUT 
FILE  'OCNOCRDT.IN' .  ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS 
PROGRAM  REQUIRE  FORMATTED  INPUT.  PARTICULAR  ATTENTION  SHOUID  BE 
PAID  TO  THESE  FORMATS,  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT  TO 
DISTINGUISH  BETWEEN  'REAL'  AND  INTEGER  DATA. 


NAME 

TYPE 

RANGE  (ARRAYS) 

RESTRICTIONS 

Nl 

INTEGER 

1  <=  Nl  <=  128 

dsrcel 

CHARACTER 

'F'  OR  'S' 

N2 

INTEGER 

1  <=  N2  <=  128 

dsrce2 

CHARACTER 

'F'  OR  'S’ 

option 

CHARACTER 

ONE  OF  THE  FOLLOWING: 

•LOON'  'LOOR'  'COON'  'COOR 

xnl() 

COMPLEX 

0,1, ...,N1~1 

1  <=  Nl  <=  128 

xn2() 

COMPLEX 

0,1, .. . ,N2-1 

1  <=  N2  <=  128 

WHERE: 

Nl  =  AN  INTEGER  THAT  SPECIFIES  THE  NUMBER  OF  POINTS  OF  INPUT 
DATA  TO  BE  STORED  IN  THE  ARRAY  xnl()  . 

dsrcel  =  A  CHARACTER  VALUE  OF  'F'  OR  'S'  DENOTING  WHETHER  THE 
INPUT  ARRAY  xnl()  IS  TO  BE  READ  ERCM  A  FILE  (F)  OR  TO 
BE  GENERATED  (S)  BY  A  USER-DEFINED  EQUATION  LOCATED  IN 
THE  SUBROUTINE  sampll. 

N2  =  AN  INTEGER  THAT  SPECIFIES  THE  NUMBER  OF  POINTS  OF  INPUT 
DATA  TO  BE  STORED  IN  THE  ARRAY  xn2  () . 

dsrce2  =  A  CHARACTER  VALUE  OF  'F'  OR  'S'  DENOTING  WHETHER  THE 
INPUT  ARRAY  xn2()  IS  TO  BE  READ  FRCM  A  FILE  (F)  OR  TO 
BE  GENERATED  (S)  BY  A  USER-DEFINED  EQUATION  LOCATED  IN 
THE  SUBROUTINE  sampl2. 


onooooooooonoooooooooonooooooooooooooooooooooooooo 


option  =  A  CHARACTER  STRING  OF  POUR  LETTERS  DENOTING  THE 

COMPUTATION  DESIRED.  'ICON*  =  LINEAR  CONVOLUTION 

'DOOR*  =  LINEAR  CORREIATICN 
'COON'  =  CIRCULAR  CONVOLUTION 
•COOR'  =  CIRCULAR  CORREIATICN 

xnl()  =  THE  FIRST  ARRAY  OF  COMPLEX  INPUT  DATA.  IF  dsrcel  =  'F' 
IS  SPECIFIED  THE  USER  MUST  SUPPLY  THE  N1  INPUT 
VALUES  IN  THE  FILE.  IF  dsrcel  =  'S'  THE  USER  HAS 
ELECTED  TO  GENERATE  THE  INPUT  DATA  BY  PROVIDING 
THE  APPROPRIATE  FORTRAN  STATEMENTS  IN  THE  SPACE 
ALLOCATED  IN  SUBROUTINE  sairpll.  IF  THIS  METHOD 
OF  DATA  GENERATION  IS  ELECTED  THE  PROGRAM  MUST  BE 
RECOMPILED  BEFORE  EXECUTION. 

xn2()  =  THE  SECOND  ARRAY  OF  COMPLEX  INPUT  DATA.  IF  dsrce2  = 
•S'  IS  SPECIFIED  THE  USER  HAS  ELECTED  TO  PROVIDE  THE 
APPROPRIATE  FORTRAN  STATEMENTS  IN  THE  SPACE  ALLOCATED 
IN  SUBROUTINE  sanpl2.  IF  THIS  METHOD  OF  DATA 
GENERATION  IS  ELECTED  THE  PROGRAM  MUST  BE  RECOMPILED 
BEFORE  EXECUTION.  IF  dsrce2  =  'F*  THEN  THE  USER  MUST 
SUPPLY  THE  N2  INPUT  VALUES  IN  THE  FILE. 

NOTE:  THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN  PROGRAM 

FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********. 
THE  FORM  OF  THE  INPUT  DATA  FILE  IS: 


LINE#  ENTRIES 


FORMAT 


1  Nl, dsrcel 

2  N2,dsrce2, option 

NOTE  1  xnl() 

NOTE  2  xn2() 


i3,tll,al 
i3,tll,al,t21,a4 
2 f 10.0 
2fl0.0 


NOTES  1.  IF  dsrcel  =  'F'  THEN  THE  LINES  3...N1+2  MUST  CONTAIN 

THE  VALUES  TO  BE  READ  INTO  THE  ARRAY  Xnl() .  EACH  VALUE 
IS  READ  AS  A  COMPLEX  NUMBER,  I.E.,  REAL  IMAGINARY. 

IF  dsrcel  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE 
THE  VALUES  FOR  xnl()  IN  THE  SUBROUTINE  sairpll.  THE  USER 
MUST  THEN  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  SUBROUTINE  sairpll  TO  GENERATE  xnl()  . 


2.  IF  dsrce2  =  'F'  THEN  THE  NEXT  N2  LINES  CONTAIN  THE 

VALUES  TO  BE  READ  INTO  THE  ARRAY  xn2 ()  .  EACH  VALUE  IS 
READ  AS  A  COMPLEX  NUMBER,  I.E.,  REAL  IMAGINARY.  IF 
dsrce2  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE  THE 
VALUES  FOR  xn2()  IN  THE  SUBROUTINE  sanpl2.  THE  USER 
MUST  THEN  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  SUBROUTINE  saitpl2  TO  GENERATE  THE  ARRAY  xn2()  . 
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c 

c 

c 

C 

C 

C 

C 

C 


3.  THE  FORMAT  2fl0.0  USED  FOR  INPUT  DATA  PERMITS  THE 
DECIMAL  POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  TEN 
COLUMNS  AND  ALSO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE 
USED  (E.G. ,  3146.2  =  3.1462E+03). 

4.  IF  option  =  'COON'  OR  'OOOR'  N1  MUST  BE  EQUAL  TO  N2. 


C*****************************  OUTPUT  ******************************* 


THE  INPUT  DATA  AS  WELL  AS  THE  OUTPUT  DATA  ARE  STORED  IN  TABULAR 
FORM  IN  THE  FILE  'CCNOORDr.OUr' .  ADDITIONALLY,  THE  INPUT  SEQUENCES 
AND  THE  OUTPUT  SEQUENCE  ARE  WRITTEN  INTO  THE  FHE  'CQNGORDT.DAT' 

TO  FACILITATE  PLOTTING  BY  A  SEPARATE,  USER  SUPPLIED  PROGRAM.  THE 
FORMAT  OF  THE  DATA  IN  ' CX3NOQRDT.DAT'  IS:  el2.6,  2x,  el2.6.  THE 
FIRST  ENTRY  CORRESPONDS  TO  THE  ORDINATE  VALUE  AND  THE  SECOND  ENTRY, 
THE  ABSCISSA  VALUE.  ADDITIONAL  HEADER  INFORMATION  IS  WRITTEN  INTO 
'  OONCORDT.DAT'  TO  ALLOW  FOR  CONTROL  AND  LABELING  OF  EACH  PLOT. 


0*****************************  EXAMPLE  ******************************** 


c 

c 

C  THE  INPUT  PARAMETERS  BELOW  ARE  STORED  IN  THE  INPUT  FILE 
C  'OONCQRDT.TST' .  THE  PROGRAM  READS  THE  FIRST  4  VALUES  INK)  xnl() 
C  (dsrcel  =  »F\  N1  =  4) ,  AND  READS  THE  NEXT  5  VALUES  INK)  xn2() 

C  (dsrce2  =  'F',  N2  =  5) .  THE  GOAL  IS  TO  CALCULATE  THE  LINEAR 
C  CONVOLUTION  OF  THE  TWO  INPUT  ARRAYS. 

C 
C 

C  004 
C  005 
C  1.0 
C  2.0 
C  3.0 
C  4.0 
C  5.0 
C  4.0 
C  3.0 
C  2.0 
C  1.0 
C 
C 

C  THE  RESULTING  OUTPUT  DATA  FIIE  'CONOORDT.OUT'  IS: 

C 

C  INPUT  DATA  SOURCEFIIE:  OONOORDT.TST 
C  N1  =  4  dsrcel  =  F 

C  N2  =  5  dsrce2  =  F 

C  option  =  LOON 


F 

F  LOON 

0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


ooooooooooonnooooooooooooooooonoonoooooo 


INPUT  DATA 


xnl() 


n 

REAL 

IMAGINARY 

0 

. 100000E+01 

. OOOOOOE+OO 

1 

. 200000E+01 

. OOOOOOE+OO 

2 

•300000E+01 

.OOOOOOE+OO 

3 

. 400000E+01 

.OOOOOOE+OO 

xn2  () 

n 

REAL 

IMAGINARY 

0 

. 500000E+01 

.OOOOOOE+OO 

1 

. 400000E+01 

.OOOOOOE+OO 

2 

. 300000E+01 

.OOOOOOE+OO 

3 

. 200000E+01 

.OOOOOOE+OO 

4 

. 100000E+01 

.OOOOOOE+OO 

OUTPUT 

DATA 

xn3() 

n 

REAL 

IMAGINARY 

0 

. 500000E+01 

.953674E-06 

1 

. 140000E+02 

-.303457E-05 

2 

. 260000E+02 

-.756009E-05 

3 

. 400000E+02 

-.  404610E-05 

4 

•300000E+02 

•217716E-05 

5 

. 200000E+02 

.762858E-05 

6 

.110000E+02 

. 892130E-05 

7 

. 400001E+01 

. 472045E-05 

FOR  ILLUSTRATIVE  PURPOSES  THE  INPUT  SEQUENCES  xnl()  AND  xn2() 
GOULD  HAVE  BEEN  GENERATED  BY  SPECIFYING  dsrce#  =  'S'  AND  WRITING 
THE  APPROPRIATE  FORTRAN  STATEMENTS  INTO  THE  sanpl#  SUBROUTINES. 
THE  STATEMENTS  THAT  COULD  BE  USED  TO  ACCOMPLISH  THIS  ARE  WRITTEN 
INTO  THE  RESPECTIVE  SUBROUTINES  BUT  ARE  'OCMHENTED  CUT' . 


C****************************  MAIN  PROGRAM  *************************** 


character  infile*12,  option*4,  mode*l,  dsrcel*l,  dsrce2*l 
character  title*20 

ccnplex  xnl (0:255) ,  xn2(0:255),  xn3(0:255) 
ccnplex  xkl (0:255) ,  xk2(0:255),  xk3(0:255) 
real  nn 


C  PROMPT  USER  FOR  MODE:  BATCH  OR  TEST. 


write(*,lll5) 
read(*/1117)  mode 

if  ((mode.eq.  'y')  .or.  (mode.eq.  * Y* ) )  then 
mode  =  'Y* 
write (*,1118) 
read(*,1119)  infile 
else 

infile  =  'CONCQRDT.IN' 
endif 

C  UNTT=1  DEFINED  AS  INPUT  FILE.  UNTIS=2,3  DEFINED  AS  OUTPUT  FILES. 

open  (unit=l ,  f  ile=inf  ile ,  status= '  old ' ,  iostat=ierr ,  err=999 ) 
open  (unit=2 ,  f  il@= '  CCNOORDT .  CUT ' ) 
open  (imit=3 ,  file* '  CXMXS?DT .  DAT ' ) 

C  READ  INPUT  PARAMETERS  AND  CONDUCT  ERROR  CHECKS. 

read(l,1000)  Nl,  dsrcel 
read(l,1001)  N2,  dsrce2 ,  option 

if  ( (dsroel. eq.  •  f  * )  .or.  (dsrcel. eq.  'F'))  then 
dsrcel  =  'F' 

elseif  ( (dsrcel. eq.  's')  .or.  (dsroel. eq.  *S ' ) )  then 
dsroel  =  'S' 
else 

write(*,1009)  'dsrcel  *  ',  dsrcel 

stop  'The  allowed  values  for  dsrcel  are:  "F"  or  "S" . ' 
endif 

if ( (dsroe2.eq. ' f ' )  .or.  (dsrce2.eq.  'F'))  then 
dsrce2  =  'F' 

elseif ((dsrce2.eq. 's') .or. (dsrce2.eq. 'S') )  then 
dsrce2  =  'S' 
else 

write (*,1009)  'dsrce2  =  ',  dsrce2 

stop  'The  allowed  values  for  dsrce2  are:  "F"  or  '  'S' ' . ' 
endif 

if ((option. eq. 'ccon') .or. (option. eq. 'COON') )  then 
option  =  'COON' 

title  =  'Circular  Convolution' 
elseif  ((option,  eq.  'ccor')  .or.  (option,  eq.  'COOR'))  then 
option  -  'COOR' 

title  =  'Circular  Correlation' 
elseif ( (option. eq. 'Icon') .or. (option. eq. 'LOON') )  then 
option  =  'LOON' 
title  *  'Linear  Convolution ' 
elseif  ( (option. eq.  'lcx>r' )  .or.  (option. eq. ' L30R ' ) )  then 
option  *  'LOOR' 
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title  =  'Linear  Correlation' 
else 

write (*,1011)  option 

stop  'Hie  allowed  values  for  option  are:  COON,  CODR,IjCEN,  DOOR. ' 
endif 

if  ((Nl.lt. 1)  .or.  (Nl.gt.128) )  then 
write (*,1010)  'N1  =  ',  N1 

step  "Hie  allowed  values  for  N1  are:  1  <=  N1  <=  128' 
endif 

if  ((N2.lt. 1)  .or.  (N2.gt.128) )  then 
write (*,1010)  'N2  =  ',  N2 

stop  'Hie  allowed  values  for  N2  are:  1  <=  N2  <=  128' 
endif 

if  ((option,  eq.  'OCON' )  .or.  (option. eq.  'CC0R'))  then 
if (Nl.ne.N2)  then 
write(*,1008)  option,  Nl,  N2 

step  'For  optical  =  '  'CCOR' '  or  *  'COM!' '  Nl  must  equal  N2. 1 
endif 
N3  =  Nl 
endif 

C  DEFINE  CONSTANTS, 
k  =  8 

numplts  =  6 

C  FOR  dsree#  =  'F'  READ  INPUT  SEQUENCE (S)  FROM  THE  DATA  FII£. 

C  FOR  dsree#  =  'S'  CALL  sanpl#  TO  GENERATE  THE  INPUT  SEQUENCE(S) . 
C  THE  INPUT  SEQUENCES  ARE  STORED  IN  THE  ARRAYS  xnl() ,  xn2()  . 

if (dsrcel.eq. 'F')  then 
read(l,1002)  (xnl(i) ,i=0,Nl-l) 
else 

call  sartpll(xnl,Nl) 
endif 

if (dsrce2.eq. 'F' )  then 
read(l,1002)  (xn2(i) ,i=0,N2-l) 
else 

call  sairpl2(xn2,N2) 
endif 


C  FOR  TEST  MODE  ECHO  INPUT  DATA  ONTO  MONITOR  (UNIT  =  *)  . 

if (mode.eq. 'Y')  then 
write (*,1016)  infile 

if  ( (Nl.lt. 8)  .or.  (N2.lt. 8) )  k  -  min(Nl,N2) 
write (*,1017)  'Nl  =  ',  Nl,  'dsrcel  =  ',  dsreel 
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write(*,1017)  'N2  —  ' ,  N2,  'dsrce2  =  ' ,  dsrce2 
write(*,1018)  option 
write(*,1012)  k 
write (*,1013) 
do  3  i=0,  k-1 

write(*,1020)  i,  xnl(i),  xn2(i) 
ocntinue 
endif 

C  WRITE  THE  INPUT  SEQUENCES  INK)  FILE:  O3NO0RDT.DAT. 

write(3,2000)  numplts 
write (3, 2001)  N1 

write(3,*)  'INPUT  SEQUENCE  xnl  (REAL)  ' 
write(3,*)  'SAMPLE  #  (n) ' 
write(3,*)  'REAL  xnl()  • 
do  54  i=0,  Nl-1 
nn  =  i 

write(3,2010)  nn,  real(xnl(i)) 

54  continue 

write (3, 2001)  N1 

write(3,*)  'INPUT  SEQUENCE  xnl  (IMAGINARY) ' 
write (3,*)  'SAMPLE  #  (n)' 
write(3,*)  'lMAGxnl()' 
do  55  i=0,  Nl-1 
nn  *  i 

write(3,2010)  nn,  aimag(xnl(i) ) 

55  continue 

write (3, 2001)  N2 

write (3,*)  'INPUT  SEQUENCE  xn2  (REAL)' 
write(3,*)  'SAMPLE  #  (n)  ' 
write(3,*)  'REAL  xn2() ' 
do  56  i=0,  N2-1 
nn  =  i 

write(3,20l0)  m,  real(xn2(i)) 

56  continue 

write (3, 2001)  N2 

write (3,*)  'INPUT  SEQUENCE  xn2  (IMAGINARY)  ' 
write(3,*)  'SAMPLE#  (n) ' 
write(3,*)  'IMAG  xn2 () ' 
do  57  i=0,  N2-1 
nn  =  i 

write(3,2010)  nn,  aimag(xn2 (i) ) 

57  continue 

C  WRITE  INPUT  DATA  INTO  FIIE:  00NC0RDT.CUT. 
write (2, 1016)  infile 

write (2, 1017)  'N1  =  ',  Nl,  'dsroel  =  ',  dsrcel 
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write (2, 1017)  'N2  =  ' ,  N2 ,  'dsrce2  =  ' ,  dsrce2 
write (2, 1018)  option 
write (2, 1014)  'INPUT  DAI A' 
write(2,1015)  'xnl() ' 
do  60  i=0,  Nl-1 
write(2,1026)  i,  xnl(i) 

60  continue 
write(2,1015)  'xn2()' 
do  61  i=0,  N2-1 

write(2,1026)  i,  xn2(i) 

61  continue 

C  FOR  LINEAR  CONVOLUTION  OR  LINEAR  CORRELATION  BOTH  INPUT  ARRAYS 
C  ARE  ZERO-PADDED  TO  LENGTH  N3  =  N1  +  N2  -  1. 

if  ((aptian.eq.  'LOON')  .or.  (option. eq.  'DOOR'))  then 
N3  =  N1  +  N2  -  1 
call  zeropad(xnl,Nl,N3)  _ 

call  zeropad(xn2,N2,N3) 
endif 

C  OCMPUTE  THE  DFT  OF  BOTH  INPUT  SEQUENCES. 

call  dft(N3,xnl,xkl) 
call  dft(N3,xn2,xk2) 

C  PERFORM  CONVOLUTION  COMPUTATION. 

if  ((option,  eq.  'LOON')  .or.  (option.eq.  'COON') )  then 
do  22  i=0,  N3-1 

xk3(i)  =  xkl(i)*xk2(i) 

22  continue 

call  invdft(N3,xk3,xn3) 
endif 

C  PERFORM  03RRE1AIICN  COMPUTATION. 

if  ((option.eq.  'LOOR')  .or.  (option. eq.  'CCOR') )  then 
do  23  i=0,  N3-1 

jdcl(i)  =  conjg(xkl(i) ) 
xk3(i)  =  xkl(i)*xk2(i) 

23  continue 

call  invdft (N3 , xk3 , xn3 ) 
endif 

C  WRITE  RESULTS  INTO  FILE:  OONCORDT.DAT. 

write (3, 2001)  N3 
write (3, 2003)  title 
write(3,*)  'SAMPLE  #  (n) ' 
write(3,*)  'REAL  xn3() ' 
do  58  i=0,  N3-1 


nn  =  i 

write(3,2010)  nn,  real(xn3(i)) 

58  continue 

write (3, 2001)  N3 
write (3, 2003)  title 
write(3,*)  'SAMPLE  #  (n)' 
write(3,*)  'IMAG  xn3 () ' 
do  59  i=0,  N3-1 
nn  =  i 

write(3,2010)  nn,  aimag(xn3(i) ) 

59  continue 

C  WRITE  RESULTS  INTO  FILE:  CONCORDT.OUT. 

write(2,1014)  'OUTPUT  DATA' 
write(2,1015)  'xn3()' 
do  62  i=0,  N3-1 
write(2,l026)  i,  xn3(i) 

62  continue 

write  (*,1019) 

999  close  (unit=l) 
close (unit=2) 
close  (unit?=3) 

if  (ierr.gt.O)  then 
write(*,lll6)  infile,  ierr 
endif 

C  ********  INPUT  FORMAT  ******** 

1000  format ( i3 , til , al) 

1001  format (i3, til, al,t2l,a4) 

1002  format (2f 10.0) 

Q  ******************************** 

1008  Oformat ( '  option  =  ' ,a4, ' ,  N1  =  ' , i4 , ' ,  N2  =  ' , i4, ' ,  Error, ' , 
1'  N1  is  not  equal  to  N2. ' ) 

1009  format(lx,a9,al, '  Error,  value  not  allowed. ' ) 

1010  format(lx,^,i4,2x, 'Error,  value  not  allowed. ') 

1011  format  (lx, 'option  =  '  ,a4,2x,  'Error,  illegal  value  for  cation.') 

1012  0format(/,t2,  'THE  FIRST'  ,i3,  '  VAUJES  OF  INEUT  DATA  ARE  LISTED  ', 
1/ , '  BELOW,  VERITY  THAT  THE  DATA  IS  CORRECT. ' ,/) 

1013  Oformat (t21, 'xnl() ' ,t53, 'xn2() ' ,/,t4, 'n' ,tll, 'REAL'  ,t27, 

1'  IMAGINARY  ',t43,  'REAL'  ,t59,  '  IMAGINARY ' ) 

1014  format  (// ,  t20 ,  all ,  / ) 

1015  format (/,t21,a7,/,t6, 'n',tl3, 'REAL' ,t29, 'IMAGINARY') 

1016  format (///, '  INPUT  DATA  SOURCEFIIE:  \al2) 

1017  format (t2,a5,i3,5x,a9,al) 

1018  format (t2, 'option  =  ',a4) 


1019  Oformat  (// , '  TABULAR  OUTPUT  DATA  IS  STORED  IN  FILE:  OONQORDT.OOT. ' 
1/,  '  PLOTTING  DATA  IS  STORED  IN  FIIE:  OONOORDT.DAT.  1 ) 

1020  format(t4,il,4(4x,el2.6) ) 

1026  format(t4,i3,2(4x,el2.6) ) 

1115  Oformat (IX,  'DO  YOU  WISH  TO  RUN  THIS  PROGRAM  IN  TEST' , 

1'  MODE  ?  (Y/N)  <CR>  :  ',\,) 

1116  Oformat (///, lx,  'ERROR  OWNING  INPUT  FIIE:  ',al2,/,lx,  'FROGRAM', 

1'  TERMINATED. '  ,//,lx,  'ERROR  CODE:  •  ,i4, /////) 

1117  format (al) 

1118  Oformat (/////, lx,  'TYPE  THE  NAME  OF  YOUR  DATA  FILE  FOLLOWED', 

1'  BY  <CR>.  ' ,/,  '  IF  YOU  DESIRE  TO  MAKE  A  TEST  FUN  USING  THE' , 

2'  SAMPLE  DATA  ALREADY  STORED',/,'  IN  THE  FIIE:  CONOORDT.TST' , 

3'  TYPE:  CQNCORDT.TST  <CR>',/,'  FILENAME:  ',\,) 

1119  format (al2) 

2000  format (il) 

2001  format (i3) 

2003  format (a20) 

2010  format(el2.6,2x,el2.6) 

end 


C  SUBROUTINE:  zeropad 


C  PURPOSE:  THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY  xn() 
C  OF  LENGTH  N  AND  ZERO  PADS  THE  ARRAY  TO  LENGTH  N3. 


subroutine  zeropad (xn,N,N3) 
complex  xn(0:N3-l) 

do  33  i=N,  N3-1 
xn(i)  =  cmplx(0. 0,0.0) 

33  continue 

return 

end 


C 


SUBROUTINE:  invdft 


C  PURPOSE:  THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  OOMPLEX  ARRAY 
C  xin()  AND  COMPUTES  THE  INVERSE  DFT  OF  THE  ARRAY.  THE 

C  OUTPUT  IS  STORED  IN  THE  COMPLEX  ARRAY  XOUtQ  . 


subroutine  invdft  (N,xin,xout) 
carplex  xin(0:N-l) ,  xout(0:N-l) 


nooo 


C  OCMEUTE  TEE  CCMPLEX  CONJUGATE  OF  THE  INPUT  DATA, 


do  70  i=0,  N-l 

xin(i)  =  conjg(xin(i) )  ( 

70  continue 

! 

C  OCMEUTE  THE  DISCRETE  FOURIER  TRANSFORM  OF  THE  ARRAY, 
call  dft(N,xin,xout) 

C  OCMEUTE  THE  COMPLEX  CONJUGATE  OF  THE  RESULTING  ARRAY.  , 


do  80  i=0,  N-l 
xout(i)  ■  conjg(xout(i)  )/en 
80  continue 

return 

end 


C 


SUBROUTINE:  dft 


PURPOSE:  THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  OCMPIEX  ARRAY 
xin() ,  CCMEUTES  THE  DISCRETE  FOURIER  TRANSFORM  (DFT) 

OF  THE  ARRAY,  AND  RETURNS  THE  RESULTING  SEQUENCE  IN  THE 
OCMPIEX  ARRAY  xout()  . 


subroutine  dft(N,xin,xout) 

ccnplex  xin(0:N-l) ,  xout(0:N-l) ,  w,  wm 

pi  =  4.0*atan(1.0) 
en  =  N 

if(N-l.eq.O)  then 
xcut(O)  =  xin(O) 
else 

alpha  =  2 . 0*pi/en 
w  =  cnplx (cos (alpha) , -sin (alpha) ) 
do  100  k=0,  N-l 
wm  =  w**k 
xcut(k)  =  xin(N-l) 
do  50  l=N-2,  0,  -1 

xout(k)  =  xout(k)  *wnH-xin(l) 

50  continue 

100  continue 
endif 


return 

end 


o  o  o  o  o  o 


c 


SUBROUTINE:  sairpll 


I 

FURPQSE:  THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  SAMPLES 
OF  A  CONTINUOUS  FUNCTION  AND  STORE  THEM  IN  THE  ARRAY 
xnl()  .  IF  dsrcel  =  'S’  THEN  THE  MAIN  FROGRAM  WILL  CALL 
THIS  SUBROUTINE  TO  GENERATE  THE  VALUES  FOR  xnl()  . 

IF  dsrcel  DOES  NOT  EQUAL  'S'  THEN  THIS  SUBROUTINE  WILL 
NOT  BE  CAT, TFT)  BY  THE  MAIN  PROGRAM. 


subroutine  sampll(xnl,Nl) 
complex  xnl(0:Nl-l) 

pi  =  4.0*atan(1.0) 
enl  =  N1 


Q***  ****** ************************************************************** 

C  DEVELOP  THE  SAMPLING  ALGORITHM  FOR  xnl()  IN  THIS  SPACE.  THE 
C  STATEMENTS  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  RULES  AND 
C  MAY  USE  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  SIN()  ,OOS()  . . . 

,  C  AN  EXAMPLE  OF  AN  ALGORITHM  GENERATING  VALUES  FOR  xnl()  IS  SHOWN. 

>  C 

"  C  ***  EXAMPLE  *** 

C 

C  do  6  i=0,  Nl-1 
C  xnl(i)  *  cnplx(i+l. 0,0.0) 

C  6  continue 

Q1e1rk1c-k1t1rifk1fkirk1i1ck1rk-k1fk-kic1rltiflflrk-k1i1t1t1i1t1t1t1c1c1t1i1rkrk1i1rkick1ckirk1tick1c1rk1c-k1ck1t1ric1cit1rk1t 


return 

end 


C  SUBROUTINE:  sairpl2 


C  FURFOSE:  THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  SAMPLES 
C  OF  A  CONTINUOUS  FUNCTION  AND  STORE  THEM  IN  THE  ARRAY 

C  xn2() .  IF  dsrce2  =  'S'  THEN  THE  MAIN  FROGRAM  WILL  CALL 

C  THIS  SUBROUTINE  TO  GENERATE  THE  VALUES  FOR  xn2()  . 

C  IF  dsrce2  DOES  NOT  EQUAL  'S'  THEN  THIS  SUBROUTINE  WILL 

C  NOT  BE  CALLED  BY  THE  MAIN  FROGRAM. 


oooooooono 


subroutine  sampl2 (xn2,N2) 
ocnplex  xn2(0:N2-l) 

pi  =  4.0*atan(1.0) 
en2  =  N2 


C* ******  **************************************************************** 

DEVELOP  THE  SAMPLING  ALGORITHM  FOR  xn2()  IN  THIS  SPACE.  THE 
STATEMENTS  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  RULES  AND 
MAY  USE  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  SIN()  fOOS() . . . 

AN  EXAMPLE  OF  AN  ALGORITHM  GENERATING  VALUES  FOR  xn2()  IS  SHOWN. 

***  EXAMPLE  *** 

do  7  i=0,  N2-1 

xn2(i)  =  anplx(5.0-i,0.0) 

7  continue 

C*********************************************************************** 


return 

end 


VERSION:  2/03/88 


C 

C 

C 

C  PURPOSE: 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


EFT.  FOR 


THIS  PROGRAM  COMPUTES  THE  DISCRETE  FOURIER  TRANSFORM 
OR  THE  INVERSE  DISCRETE  FOURIER  TRANSFORM  OF  A  SET  OF 
OCMFLEX  INPUT  DATA  USING  A  RADIX-2,  DECIMATION  IN  TIME 
(DTT)  EAST  FOURIER  TRANSFORM  (FFT)  ALGORITHM.  THE 
PROGRAM  CONSISTS  OF  A  MAIN  PROGRAM  AND  POUR  SUB¬ 
ROUTINES.  THE  SUBROUTINE  reversed  REARRANGES  THE 
INPUT  INTO  'BIT-REVERSED'  ORDER;  THE  SUBROUTINE  fft 
COMPUTES  THE  FAST  FOURIER  TRANSFORM;  THE  SUBROUTINE 
invfft  COMPUTES  THE  INVERSE  FAST  FOURIER  TRANSFORM;  AND 
THE  SUBROUTINE  sample  ALLOWS  THE  USER  TO  GENERATE  THE 
THE  INPUT  DATA  BY  WRITING  THE  APPROPRIATE  EQUATIONS.  IF 
THE  USER  ELECTS  TO  GENERATE  THE  INPUT  DATA  BY  USING  THE 
SUBROUTINE  sample,  THE  EQUATIONS  MUST  BE  WRITTEN  INTO 
THE  SUBROUTINE  USING  STANDARD  FORTRAN  77  STATEMENTS  AND 
THE  INPUT  DATA  GENERATED  MUST  BE  STORED  IN  THE 
ARRAY  xtrnpQ  .  THE  OUTPUT  OF  'FFT. FOR'  IS  STORED  IN 
THE  ARRAY  x()  .  THE  USER  HAS  THE  OPTION  OF  SELECTING 
ONE  OF  TWO  OPERATING  MODES:  BATCH  OR  TEST. 

IN  BATCH  MODE  THE  AMOUNT  OF  INTERACTION  WITH  THE 
USER  IS  MINIMIZED  AND  IT  IS  ASSUMED  THAT  THE  INPUT 
PARAMETERS  HAVE  BEEN  STORED  IN  THE  INPUT  FIIE  ' FFT. IN' . 
IN  TEST  MODE  THE  USER  IS  PROMPTED  FOR  THE  NAME  OF 
THE  INPUT  FILE  CR  HAS  THE  OPTION  TO  PERFORM  A  TRIAL 
BUN  USING  THE  DATA  STORED  IN  THE  FILE  'FFT.  1ST' . 

IT  IS  RECOMMENDED  THAT  FIRST-TIME  USERS  SELECT  TEST 
MODE  AND  MAKE  A  TRIAL  RUN  WITH  THE  PRESTORED 
DATA.  THE  TEST  MODE  ECHOES  PORTIONS  OF  THE  INPUT 
DATA  ONTO  THE  MONITOR  TO  ALLOW  VERIFICATION  OF  ITS 
ACCURACY.  THE  OUTPUT  IS  STORED  IN  TABULAR  FORM  IN 
THE  FILE  'FFT. CUT'  AND  IN  A  FORM  SUITABLE  FOR  PLOTTING 
IN  THE  FILE  ' FFT. DAT' . 


(^*****************************  INPUT  ******************************** 


C 

C  THIS  PROGRAM  ASSUMES  THAT  THERE  ARE  N  =  2**m  COMPLEX  VALUES  IN  THE 
C  INPUT  SEQUENCE.  THE  INPUT  SEQUENCE  IS  ASSUMED  TO  BE  DEFINED  IN 
C  THE  INTERVAL:  0  TO  N-l.  IF  THE  INPUT  SEQUENCE  CONSISTS  OF  'REAL' 

C  NUMBERS  THE  IMAGINARY  PART  IS  STORED  AS  0.0.  THE  VALUE  'm'  AS  WELL 
C  AS  THE  OTHER  PARAMETERS  DESCRIBED  BELOW  SHOULD  BE  STORED  IN  THE 
C  INPUT  FILE  'FFT. IN' .  ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS 
C  PROGRAM  REQUIRE  FORMATTED  INPUT.  PARTICULAR  ATTENTION  SHOULD  BE 
C  PAID  TO  THESE  FORMATS,  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT  TO 
C  DISTINGUISH  BETWEEN  'REAL'  AND  INTEGER  DATA. 

C 


oooooooooooooooooooooooooooooooooooooononooooooooooo 


NAME 

TYPE 

RANGE  (ARRAYS) 

RESTRICTIONS 

m 

dsorce 

optical 

xtnp() 

INTEGER 

CHARACTER 

CHARACTER 

OCMPIEX 

0,  1,  ...,  N-l 

0  <=  in  <=  8 
»F*  OR  ‘S* 
•FFT'  OR  'INV' 
1  <=  N  <=  256 

WHERE: 

m  =  AN  INTEGER  THAT  SPECIFIES  THE  NUMBER  OF  COMPLEX  VAHJES  IN  THE 
INPUT  SEQUENCE.  N  =  2**m. 

dsorce  =  A  CHARACTER  VALUE  OF  'F'  OR  'S'  DENOTING  WHETHER  THE 
INPUT  DATA  IS  TO  BE  READ  FRCM  A  FILE  (F)  OR  TO  BE 
GENERATED  (S)  BY  A  USER-DEFINED  EQUATION  LOCATED  IN  THE 
SUBROUTINE  sample. 

option  =  A  CHARACTER  STRING  OF  THE  LETTERS  'FFT'  OR  'INV' 

DENOTING  WHETHER  THE  FFT  OR  THE  INVERSE  FFT  IS  TO  BE 
PERFORMED  ON  THE  INPUT  DATA. 

xtmpO  =  THE  ARRAY  OF  OCMPIEX  INPUT  DATA.  IF  dsorce  =  'F'  IS 
SELECTED  THEN  THE  USER  MUST  SUPPLY  THE  N  INPUT  VALUES 
IN  THE  FILE.  IF  dsorce  =  'S'  THEN  THE  USER  HAS 
ELECTED  TO  GENERATE  THE  INPUT  SEQUENCE  BY  PROVIDING  THE 
APPROPRIATE  FORTRAN  STATEMENTS  IN  THE  SPACE  EROVIDED  IN 
SUBROUTINE  Semple.  IF  THIS  METHOD  OF  DATA  GENERATION  IS 
ELECTED  THE  PROGRAM  MUST  BE  RECOMPILED  BEFORE  EXECUTION. 

NOTE:  THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN  FROGRAM 

FOLLOWING  THE  CAPTION:  ********  INEUT  FORMAT  ********. 
THE  FORM  OF  THE  INPUT  DATA  FILE  IS: 

LINE#  ENTRIES  FORMAT 

1  m ,  dsorce ,  option  il,tll,al,t21,ei3 

2...N+-1  xtnpO  2  f  10.0 


WHERE:  N  =  2**m 

NOTES  1.  LINES  2...N+1  ARE  ONLY  REQUIRED  IF  dsorce  =  'F'.  IF 

dsorce  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE  THE 
N  =  2**m  VALUES  FOR  xtnp()  IN  THE  SUBROUTINE  sanple.  THE 
USER  MUST  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS  IN 
SUBROUTINE  sanple  TO  GENERATE  THE  VALLES  FOR  xtmp() . 

2.  THE  FORMAT  flO.O  USED  FOR  INPUT  DATA  PERMITS  THE  DECIMAL 
POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FULL  OF  TEN  COLUMNS 
AND  AISO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE  USED  (E.G. , 
3146.2  =  3.1462E+03) . 
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M 


0000000000(100 


c 

C******************************  OUTPUT  ****************************** 


THE  INPUT  DATA  AS  WELL  AS  THE  OUTPUT  DATA  ARE  STORED  IN  TABULAR 
FORM  IN  THE  FILE  'FFT.OUT' .  ADDITIONALLY,  THE  INPUT  SEQUENCE  (REAL 
AND  IMAGINARY)  AND  THE  OUTPUT  SEQUENCE  (MAGNITUDE  AND  PHASE)  ARE 
WRITTEN  INTO  THE  FILE  'FFT.DAT'  TO  FACILITATE  PLOTTING  BY  A 
SEPARATE,  USER  SUPPLIED  PROGRAM.  THE  FORMAT  OF  THE  DATA  IN 
'FFT.DAT'  IS:  el2 . 6 ,  2x,  el2.6.  THE  FIRST  ENTRY  CORRESPONDS  TO 
THE  ORDINATE  VALUE  AND  THE  SECOND  ENTRY,  THE  ABSCISSA  VALUE. 
ADDITIONAL  HEADER  INFORMATION  IS  WRITTEN  INTO  'FFT.DAT'  TO  ALLOW 
FOR  CONTROL  AND  LABELING  OF  EACH  PLOT. 


0******************************  EXAMPLE  a*************************'**** 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THE  INPUT  PARAMETERS  BELOW  ARE  STORED  IN  THE  INPUT  FILE  'FFT.TST' . 
THERE  ARE  EIGHT  DATA  POINTS  IN  THE  INPUT  SEQUENCE  AND  THE  GOAL  IS 
TO  COMPUTE  THE  FAST  FOURIER  TRANSFORM  (FFT)  OF  THE  SEQUENCE. 

NOTE:  N  =  2**m  =  8  THEREFORE  m  =  3. 


3 

0.0 

1.0 

2.0 

3.0 

4.0 

0.0 

0.0 

0.0 


F 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 


FFT 


THE  RESULTING  OUTPUT  DATA  FIIE  'FFT.OUT'  IS: 


INPUT  DATA  SOURCEFTIE:  FFT.TST 

VALUE  OF  m  =  3  VALUE  OF  N  (2**m)  =  8 

dsorce  =  F  option  —  FFT 


INPUT  DATA 


INPUT  DATA 
(BIT-REVERSED  ORDER) 


SAMPLE 

0 

1 

2 

3 

4 


REAL 

. OOOOOOE+OO 
. 100000E+01 
. 200000E+01 
. 300000E+01 
. 400000E+01 


IMAGINARY 

.OOOOOOE+OO 

.OOOOOOE+OO 

.OOOOOOE+OO 

.OOOOOOE+OO 

.OOOOOOE+OO 


REAL 

.OOOOOOE+OO 
. 400000E+01 
•200000E+01 
.OOOOOOE+OO 
. 100000E+01 


IMAGINARY 
.  OOOOOOE+OO 
.  OOOOOOE+OO 
•OOOOOOE+OO 
.OOOOOOE+OO 
.OOOOOOE+OO 


oooooooooooooooooooooooooo 


5 

6 
7 


.OOOOOOE+OO 
. 000000E+00 
.OOOOOOE+OO 


•OOOOOOE+OO 

.OOOOOOE+OO 

.OOOOOOE+OO 


.OOOOOOE+OO 

•300000E+01 

.OOOOOOE+OO 


. OOOOOOE+OO 
. OOOOOOE+OO 
.OOOOOOE+OO 


OUTK7T  DATA 


SAMPLE  #  REAL 


IMAGINARY 


0 

1 

2 

3 

4 

5 

6 
7 


. 100000E+02 
-.541421E+01 
. 200000E+01 
-.258579E+01 
.200000E+01 
-.258579E+01 
. 200000E+01 
-.541421E+01 


.OOOOOOE+OO 
-.482843E+01 
. 200000E+01 
“.828427E+00 
•OOOOOOE+OO 
. 828427E+00 
-.200000E+01 
•482843E+01 


MAGNITUDE 

. 100000E+02 
. 725448E+01 
. 282843E+01 
•271525E+01 
. 200000E+01 
•271525E+01 
•282843E+01 
. 725448E+01 


FHASE 
(DEGREES) 
.OOOOOOE+OO 
- . 138273E+03 
. 450000E+02 
-.162236E+03 
.OOOOOOE+OO 
. 162236E+03 
-.450000E+02 
. 138273E+03 


FOR  ILLUSTRATIVE  FURPCSES  THE  INRTT  SEQUENCE  xtnpQ  OQULD  HAVE 
BEEN  GENERATED  BY  SPECIFYING  dsorce  =  'S'  AND  WRITING  THE 
APFROERIATE  FORERAN  STATEMENTS  INTO  SUBROUTINE  sample.  THE 
STATEMENTS  THAT  OOUID  BE  USED  TO  ACGCMPUSH  THIS  ARE  WRITTEN 
INTO  THE  SUBROUTINE  BUT  ARE  ' COMMENTED  CUT' . 


C***************************  MAIN  PROGRAM  **************************** 


character  infile*  12,  option*  3 ,  mode*l,  dsorce*  1 
oonplex  x(0:255) ,  xtnp(0:255) 
real  xmag(0:255),  xph(0:255),  nn 

C  ERCMPT  USER  FOR  MODE:  BATCH  OR  TEST. 

write (*,1115) 
read(*,1117)  mode 

if((mode.eq. 'y')  .or.  (mode.eq. 'Y'))  then 
mode  =  'Y' 
write (*,1118) 
read (*,1119)  infile 
else 

infile=  '1^1.1^ 
endif 

C  UNIT=1  DEFINED  AS  INPUT  FILE.  UNTIS=2,3  DEFINED  AS  OUTPUT  FILES. 

open(unit=l, file=  infile, status* 1 old' , iostat=ierr , err=999) 
open  (unit=2,file='FFT.  CUT') 
open  (unit=3 ,  file* '  FFT.  DAT ' ) 
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C  READ  INPUT  PARAMETERS  AND  CONDUCT  ERROR  CHECKS. 


read(l,1000)  m,  dsorce,  option 

if((m.lt.O)  .or.  (m.gt.8))  then 
write (*,1010)  m 

stop  'The  allowed  values  for  m  are:  0  <=  m  <=  8 . ' 
endif 

if  ((option,  eq.  'FFT')  .or.  (option. eq.  'fft') )  then 
option  =  'FFT' 

elseif(  (option. eq.  'INV')  .or.  (option. eq.  'inv'))  then 
cptian  =  'INV' 
else 

write (*,1011)  option 

step  'The  allowed  values  for  option  are:  '  'FFT' '  or  '  'INV' ' . ' 
endif 

if ((dsorce. eq. 'F') .or. (dsorce. eq. ' f * ) )  then 
dsorce  =  'F' 

elseif( (dsorce. eq. 'S') .or. (dsorce. eq. • s 1 ) )  then 
dsorce  =  'S' 
else 

write (*,1018)  dsorce 

stop  'The  allowed  values  for  dsorce  are:  "S"  or  "F" . ' 
endif 

C  DEFINE  CONSTANTS. 

N  =  2**m 
en  =  N 
k  -  8 

pi  =  4.0*atan(1.0) 
nunplts  =  4 

C  FOR  dsorce  =  'F'  READ  THE  INPUT  SEQUENCE  FROM  THE  INPUT  FILE. 

C  FOR  dsorce  =  'S'  CALL  sample  TO  GENERATE  THE  INPUT  SEQUENCE. 

C  THE  INPUT  SEQUENCE  IS  STORED  IN  THE  ARRAY  Xtmp() . 

if (dsorce. eq. 'F')  then 
read(l,1001)  (xtmp(i) ,i=0,N-l) 
else 

call  sample  (xtmp,N) 
endif 

C  FOR  TEST  MODE  ECHO  INPUT  DATA  ONTO  THE  MONITOR  (UNIT  =  *)  . 

if (mode.eq. 'Y')  then 
write ( * , 1016 )  inf ile 
if (N.  It.  8)  k?=N 

write(*,1017)  m,  N,  dsorce,  option 
write (*,1012)  k 
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3 


i 


write (*,1013) 
do  3  i=0,  k-1 

write(*,1020)  i,  xtnp(i) 
continue 
endif 

C  WRITE  THE  INPUT  SEQUENCE  INTO  FHE:  FFT.DAT. 

write(3,2000)  nunplts 
write (3, 2001)  N 

write (3,*)  'INPUT  SEQUENCE  (REAL)' 
write(3,*)  'SAMPLE  #' 
write(3,*)  'REAL  xtnpQ  ' 
do  55  i=0,  N-l 
nn  =  i 

write(3,2010)  nn,  real(xtnp(i) ) 

55  continue 

write (3, 2001)  N 

write (3,*)  'INPUT  SEQUENCE  (IMAGINARY)' 
write (3,*)  'SAMPLE  #' 
write(3,*)  'IMAG  xtnpQ  ' 
do  56  i=0,  N-l 
nn  =  i 

write(3,2010)  nn,  aimag(xtnp(i) ) 

56  continue 

C  CALL  reversal  TO  REARRANGE  DATA  INTO  BIT-REVERSED  ORDER. 

call  reversal  (N,m,xtup,x) 

C  WRITE  INPUT  DATA  INK)  FH£:  EFT. CUT. 

write (2, 1016)  infile 
write(2,1017)  m,  N,  dsorce,  option 
write (2, 1014) 
write (2, 1015) 
do  8  i=0,  N-l 

write(2,1030)  i,  xtmp(i) ,  x(i) 

8  continue 

C  CALL  fft  OR  invfft  TO  PERFORM  THE  SELECTED  COMPUTATION. 

if  (option. eq. 'INV' )  then 
call  invfft (N,m,x) 
else 

call  fft(N,m,x) 
endif 
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C  TRANSFORM  OUTPUT  DATA  INTO  EXPONENTIAL  FORM:  xmag*EXP(j*xph)  • 
C  PHASE  xph()  IS  EXPRESSED  IN  DEGREES. 

do  60  i=0,  N-l 
xmag(i)  =  cabs(x(i)) 
if (abs(real(x(i) ) ) .lt.l.0e-15)  then 

if(abs(aimag(x(i))) .le.l.0e-15)  xph(i)=0.0 
if (aimag(x(i)) .gt.l.0e-15)  xph(i)=90.0 
if (aimag(x(i) ) .lt.-1.0e-15)  xph(i)=-90.0 
else 

xph(i)=(  180. 0/pi)  *atan2(aimag(x(i) )  ,real(x(i)) ) 
endif 

60  continue 

C  WRITE  THE  OUTPUT  DATA  INTO  FIIE:  FFT.DAT. 

write (3, 2001)  N 
write(3,*)  'OUTPUT  MAGNITUDE' 
write(3,*)  'SAMPLE  #' 
write (3,*)  'MAGNITUDE' 
do  57  i=0,  N-l 
nn  =  i 

write(3,20l0)  nn,  xmag(i) 

57  continue 

write (3, 2001)  N 
write(3, *)  'OUTPUT  PHASE' 
write (3,*)  'SAMPLE  #' 
write (3,*)  'FHASE  (DEG)' 
do  58  i=0,  N-l 
nn  =  i 

write (3, 2010)  nn,  xph(i) 

58  continue 

C  WRITE  THE  OUTPUT  DATA  INTO  FIIE:  FFT.CXJT. 

write (2, 1025) 
do  5  i=0,  N-l 

write(2,1030)  i,  x(i),  xmag(i) ,  xph(i) 

5  continue 

write (*,1019) 

999  close (unit=l) 

close (uni t=2) 
close (unit=3) 

if (ierr.gt.0)  then 
write (*,1116)  infile,  ierr 
endif 


C  ********  INPUT  FORMAT  ******** 


1000  f  ormat (il, til, al,t21,a3) 

1001  format (2f 10.0) 

c  ******************************** 

1010  format(lx,  'm  =  •  ,il,2x,  'Error,  value  of  m  not  allowed. ') 

1011  format  (lx, 'option  =  ' ,a3,2x, 'Error,  illegal  value  for  option.') 

1012  0format(/,  '  THE  FIRST  ',il,  '  VALUES  OF  XtarpQ  ARE  LISTED  ', 
l'EELOW. ',/, '  VERIFY  THAT  THE  DATA  WAS  STORED  CORRECTLY.  ') 

1013  format(/,t4, 'SAMPLE  #'  ,tl5,  'REAL*  ,t29,  'IMAGINARy' ,/) 

1014  Of ormat (/// , t25 ,  ' INPUT  DATA'  ,t57,  'INPUT  DATA',/, 
lt52, ' (BIT-REVERSED  ORDER) ' ,/) 

1015  0format(t4, 'SAMPLE  #' ,tl7, 'REAL' ,t33, 'IMAGINARY' ,t49, 'REAL' , 
lt65,  'IMAGINARy ') 

1016  format (///,  '  INPUT  DATA  SOURCEFTLE:  *,al2) 

1017  Of  ormat  ( '  VALUE  OF  m  -  ',il,5x,  'VALUE  OF  N  (2**m)  =  ',i3,/,lx, 
l'dsorce  =  ' , al,5x, 'option  =  ' ,a3) 

1018  format  (lx,  'dsorce  =  '  ,al,2x, 'Error,  illegal  value  for  dsorce. ' ) 

1019  0format(//,  '  TABULAR  OUTPUT  DATA  IS  STORED  IN  FILE:  FFT.OUT.  ' , 
V, '  PLOTTING  DATA  IS  STORED  IN  FILE:  FFT.DAT. ' ) 

1020  format (t7 , il , tl3 , 2 (el2 . 6 , 2x) ) 

1025  Of ormat (///,t33, 'OUTPUT  DATA'  ,//,t4,  'SAMPLE  #' ,tl7, 'REAL' , 

lt33,  '  IMAGINARY ',t49,  'MAGNITUDE'  ,t67,  'PHASE'  ,/,t65,  '  (DEGREES)  ') 

1030  format(t5,i3,tl5,4(el2.6,4x)) 

1115  0  format  (lx,  'DO  YOU  WISH  TO  HUN  THIS  PROGRAM  IN  TEST' , 

1'  MODE  ?  (Y/N)  <CR>  :  ',\,) 

1116  Oformat (/// , lx,  'ERROR  OPENING  INPUT  FILE:  ',al2,/,lx,  'PROGRAM', 
1'  TERMINATED.  '  ,//,lx,  'ERROR  CODE:  •  ,i4, /////) 

1117  format (al) 

1118  Oformat (/////,  lx,  'TYPE  THE  NAME  OF  YOUR  DATA  FILE  FOLLOWED ' , 

1*  BY  <CR>.  ' ,/,  '  IF  YOU  DESIRE  TO  MAKE  A  TEST  HUN  USING  THE', 

2 '  SAMPLE  DATA  ALREADY  STORED' ,/, '  IN  THE  FILE:  FFT.TST' , 

3'  TYPE:  FFT.TST  <CR>' ,/,  '  FILENAME:  ',\,) 

1119  format (al2) 

2000  format (il) 

2001  format (i3) 

2010  format(el2.6,2x,el2.6) 


C  SUBROUTINE:  invfft 


C  PURPOSE:  THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY 
C  X()  ,  COMPUTES  THE  INVERSE  FAST  FOURIER  TRANSFORM  (IFFT) 

C  OF  THE  ARRAY,  AND  RETURNS  THE  RESULTING  SEQUENCE  IN  THE 

C  ORIGINAL  ARRAY  x()  . 


onnnn 


subroutine  invfft  (N,m,x) 
cccplex  x(0:N-l) 

en  =  N 


C  CALCULATE  THE  COMPLEX  CONJUGATE  OF  THE  INPUT  SEQUENCE. 

do  70  i=0,  N-l 
x(i)  =conjg(x(i)) 

70  continue 

C  CALCULATE  THE  FAST  FOURIER  TRANSFORM  OF  THE  ARRAY, 
call  fft(N,m,x) 

C  CALCULATE  THE  OCMPIEX  CONJUGATE  OF  THE  RESULTING  ARRAY. 

do  80  i=0,  N-l 
x(i)  =  oonjg(x(i)  )/en 
80  continue 

return 

end 


C 


SUBROUTINE:  reversed 


HJRPOSE:  THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY 
CONTAINING  THE  VAUJES  xtnp()  THAT  WERE  READ  FROM 
THE  INPUT  FILE.  THE  OUTPUT  OF  THIS  SUBROUTINE  IS 
THE  OCMPIEX  ARRAY  x()  THAT  CONTAINS  THE  INPUT 
VALUES  IN  '  BIT-REVERSED '  ORDER. 


subroutine  reversal  (N,m,xtmp,x) 
complex  xtnp(0:N-l) ,  x(0:N-l) 

do  10  k=0,  N-l 
newaddr  =  o 
maddr  *  k 
do  20  i=0,  m-1 

lrmndr  =  mod (maddr, 2) 
newaddr  =  newaddr  +  lrmndr*2**(m-l-i) 
maddr  =  maddr/2 
20  continue 

x( newaddr)  =  xtmp(k) 

10  continue 

return 

end 


c 


SUBROUTINE:  fft 


C  PURPOSE:  THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY  x()  , 
C  OCMFUIES  THE  EAST  FOURIER  TRANSFORM  (FFT)  OF  THE 

C  ARRAY,  AND  RETURNS  THE  RESULTING  SEQUENCE  IN  THE 

C  ORIGINAL  ARRAY  x()  . 


subroutine  fft(N,m,x) 
complex  x(0:N-l) ,  W,  trap 

pi  =  4.0*atan(1.0) 
en  =  N 

do  50  D=l,  m 
ispace  =  2**L 
s  =  N/ ispace 
iwidth  =  ispace/ 2 
do  40  j=0,  iwidth-1 
r  =  s*j 

alpha  =  2 . 0*pi*r/en 
W  =  anplx(cos  (alpha) , -sin (alpha) ) 
do  30  itop=j,  N-2,  ispace 
ibot  =  itop  +  iwidth 
trap  =  x(ibot)  *W 
x(ibot)  =  x(itcp)  -  trap 
x(itcp)  =  x(itcp)  +  trap 
30  continue 

40  continue 

50  continue 

return 

end 


C  SUBROUTINE:  sample 


C  FURPOSE:  THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  2**m 
C  SAMPLES  OF  A  CONTINUOUS  FUNCTION.  THE  SAMPLES  ARE 

C  RETURNED  TO  THE  MAIN  PROGRAM  IN  THE  ARRAY  xtmp()  . 


subroutine  sample  (xtrap,N) 
complex  xtrap(0:N-l) 


pi  =  4.0*atan(1.0) 
en  =  N 


C*  ******  **************************************************************** 


C  DEVELOP  THE  SAMPLING  ALGORITHM  IN  THIS  SPACE.  THE  STATEMENTS 
C  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  RULES  AND  MAY  USE 
C  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  SINQ  ,  OOS() ,  ABS() . . . 

C  AN  EXAMPLE  IS  SHOWN  RETOW.  THE  INPUT  DATA  MUST  EE  STORED  IN 
C  THE  ARRAY  xtmp()  .  EFT. PGR  MUST  BE  COMPILED  AGAIN  BEFORE 
C  EXECUTION  IF  THIS  SUBROUTINE  IS  USED. 

C 

C  ***  EXAMPLE  *** 

C 

C  do  2  i=0,  N-l 
C  if(i.le.4)  then 

C  xtmp(i)  =  anplx(i,0.0) 

C  else 

C  xtnp(i)  =  cmplx(0. 0,0.0) 

C  endif 

C  2  continue 

C*********************************************************************** 


return 

end 


ooooooooooonoooooooooooooooooonoooooooooooooooooooo 


I 


OONOORFT.FOR  VERSION:  2/03/88 


HJRPCSE:  THIS  EROGRAM  PERFORMS  ANY  ONE  OF  THE  FOLLOWING  POUR 
COMPUTATIONS  GIVEN  TWO  COMPLEX  ARRAYS  OF  INPUT  DATA: 
LINEAR  CONVOLUTION  (LOCN)  ;  LINEAR  CORRELATION  (IOOR)  ; 
CIRCULAR  CONVOLUTION  (GOON)  ;  OR  dROJIAR  OORRELATICN 
(COOR)  BY  USING  THE  FAST  FOURIER  TRANSFORM  (FFT) 
ALGORITHM.  FOR  THE  CONVOLUTION  OPERATIONS  THE  PROCEDURE 
INVOLVES  OCMEUTING  THE  FFTs  OF  THE  ARRAYS,  MULTIPLYING 
THE  FFTs  TOGETHER  AND  OCMEUTING  THE  INVERSE  FFT 
OF  THE  RESULT.  FOR  THE  CORRELATION  OPERATIONS  THE 
PROCEDURE  IS  THE  SAME  EXCEPT  THAT  THE  CONJUGATE  OF 
THE  FFT  OF  THE  FIRST  INPUT  ARRAY  IS  MULTIPLIED  BY  THE 
FFT  OF  THE  SECOND  ARRAY.  THE  PROGRAM  CONSISTS  OF  A  MAIN 
PROGRAM  AND  SIX  SUBROUTINES.  THE  SUBROUTINE  zeropad 
EXTENDS  THE  INPUT  ARRAY  PASSED  TO  IT  BY  AIDING  AN 
APPROPRIATE  NUMBER  OF  ZEROES  TO  THE  ORIGINAL  INPUT  DATA 
TO  CREATE  AN  ARRAY  OF  LENGTH  2**m,  m  =  INTEGER.  THE 
SUBROUTINE  f ft  COMPUTES  THE  DISCRETE  FOURIER  TRANSFORM 
OF  AN  ARRAY  USING  THE  RADIX-2  FFT  ALGORITHM.  THE 
SUBROUTINE  invfft  CONFUTES  THE  INVERSE  DISCRETE 
FOURIER  TRANSFORM  OF  AN  ARRAY  USING  THE  ALTERNATE 
INVERSION  FORMULA.  THE  SUBROUTINE  reversal  REARRANGES 
THE  INPUT  DATA  INTO  BIT-REVERSED  ORDER  BEFORE  f ft  IS 
CALLED.  THE  SUBROUTINES  sairpll  AND  sanpl2  ALLOW  THE 
USER  TO  GENERATE  EITHER  OF  THE  INPUT  ARRAYS  BY  WRITING 
THE  APPROPRIATE  EQUATIONS.  IF  THE  USER  CHOOSES  TO 
GENERATE  THE  INPUT  DATA  BY  USING  EITHER  OF  THE  sampl 
SUBROUTINE  (S) ,  THE  EQUATIONS  MUST  BE  WRITTEN  INK) 

THE  SUBROUTINE  (S)  USING  STANDARD  FORTRAN  77  EXECUTABLE 
STATEMENTS  AND  THE  VALUES  GENERATED  MUST  BE  STORED 
IN  THE  ARRAYS  xnl()  AND  xn2()  .  THE  USER  HAS  THE 
OPTION  OF  SELECTING  ONE  OF  TWO  OPERATING  MODES:  BATCH 
OR  TEST.  IN  BATCH  MODE  THE  AMOUNT  OF  INTERACTION 
WITH  THE  USER  IS  MINIMIZED  AND  IT  IS  ASSUMED  THAT  THE 
INPUT  PARAMETERS  HAVE  BEEN  STORED  IN  THE  INPUT  FILE 
,aONOCRF^.IN,.  IN  TEST  MODE  THE  USER  IS  PROMPTED 
FOR  THE  NAME  OF  THE  INPUT  FIIE  AND  HAS  THE  OPTION 
TO  PERFORM  A  TRIAL  HUN  USING  THE  DATA  STORED  IN  THE 
FIIE  1 CCNCORFT. TST ' .  IT  IS  RECOMMENDED  THAT  FIRST-TIME 
USERS  SELECT  TEST  MODE  AND  PERFORM  A  TRIAL  FIJN 
WITH  THE  FRESTORED  DATA.  THE  TEST  MODE  ECHOES 
PORTIONS  OF  THE  INPUT  DATA  ONTO  THE  MONITOR  TO  ALLOW 
VERIFICATION  OF  T^S  ACCURACY.  THE  OUTPUT  OF  THE 
PROGRAM  'CONCORFI  FOR'  IS  STORED  IN  THE  ARRAY  xn3() 

AND  IS  WRITTEN  IN  TABULAR  FORM  INTO  THE  FIIE 
'CONOORFT.aUT'  AND  IN  A  FORM  SUITABLE  FOR  PLOTTING 
IN  THE  FIIE  ' CONCORFT.DAT'. 


* 


J 
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c************  *****************  tnpi  rr  ********************************* 


c 

c 

C  THIS  PROGRAM  ASSUMES  THAT  THERE  ARE  TWO  SEQUENCES  OF  INFOT  DATA 
C  STORED  IN  THE  ARRAYS  xnl()  AND  xn2()  OF  LENGTH  'Nl'  AND  'N2\ 

C  RESPECTIVELY.  THE  SEQUENCES  ARE  ASSUMED  TO  BE  COMPLEX.  IF  THE 
C  SEQUENCES  CONTAIN  REAL  VALUES  ONLY,  THEN  THE  IMAGINARY  PART  IS 
C  STORED  AS  0.0  .  THIS  PROGRAM  USES  A  RADIX-2  FFT  ALGORITHM. 

C  FOR  LINEAR  O^JVOLDTTON  OR  LINEAR  CORRELATION  (option  =  LCON,LOOR) 
C  THE  INPUT  ARRAYS  DO  NOT  HAVE  TO  BE  OF  LENGTH  2**m,  m  =  INTEGER. 

C  THE  SUBROUTINE  zeropad  ADJUSTS  THE  ARRAY  LENGTHS  BEFORE 
C  THE  FFT  COMPUTATIONS  ARE  MADE.  FOR  CIRCULAR  CONVOLUTION  OR 
C  CLROJIAR  CORRELATION  (option  =  CC0N,CC0R)  THE  ARRAYS  MUST  BE  OF 
C  IENGIH  2**111,  in  =  INTEGER  BECAUSE  EXTENDING  THE  SEQUENCES  BY 
C  ZERO  PADDING  WILL  PRODUCE  ERRONEOUS  RESULTS.  THE  INPUT  SEQUENCES 
C  ARE  ASSUMED  TO  BE  DEFINED  IN  THE  INTERVALS  0  TO  Nl-1,  AND  0 
C  TO  N2-1,  RESPECTIVELY.  THIS  PROGRAM  ALLOWS  THE  USER  THE 
C  OPTION  OF  EITHER  READING  THE  INPUT  ARRAYS  FROM  THE  DATA 
C  FILE  OR  GENERATING  THE  INPUT  VALUES  FROM  AN  ITERATIVE  EQUATION 
C  IN  THE  sanpl  SUBROUTINE  (S)  .  THE  PARAMETERS  DESCRIBED 
C  BELOW  ALLOW  THE  USER  TO  SELECT  THE  DESIRED  OPTIONS  AND  THESE 
C  PARAMETERS  SHOULD  BE  STORED  IN  THE  INPUT  FILE  'OONCORFT.IN' . 

C  ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS  PROGRAM  REQUIRE  FORMATTED 
C  INPUT.  PARTICULAR  ATTENTION  SHOULD  BE  PAID  TO  THESE  FORMATS, 

C  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT  TO  DISTINGUISH  BETWEEN 
C  'REAL'  AND  INTEGER  DATA. 

C 

C 


C 

c 

NAME 

TYPE 

RANGE 

(ARRAYS) 

RESTRICTIONS 

c 

Nl 

INTEGER 

1  <=  Nl  <=  128 

c 

dsrcel 

CHARACTER 

'F'  OR  'S' 

c 

N2 

INTEGER 

1  <=  N2  <=  128 

c 

dsrce2 

CHARACTER 

'F'  OR  'S' 

c 

option 

CHARACTER 

ONE 

OF  THE  FOLLOWING: 

c 

c 

'LOON' 

'LOOR'  'COON'  'CCOR' 

V- 

c 

xnl() 

COMPLEX 

0, 

1, 

— ,  Nl-1 

1  <=  Nl  <=  128 

c 

p 

xn2() 

COMPLEX 

o, 

1, 

...,  N2-1 

1  <=  N2  <=  128 

c 

c 

WHERE: 

c 

Nl  =  AN 

INTEGER  THAT  SPECIFIES 

THE  NUMBER  OF  COMPLEX  VALDES 

C  TO  BE  STORED  IN  THE  ARRAY  xnl()  .  FOR  option  =  COON 

C  OR  CCOR,  Nl  MUST  BE  AN  INTEGER  POWER  OF  2,  AND  Nl  AND  N2 

C  MUST  BE  EQUAL. 

C 

C  dsrcel  =  A  CHARACTER  VAHJE  OF  'F'  OR  'S'  DENOTING  WHETHER  THE 
C  INPUT  ARRAY  xnl()  IS  TO  BE  READ  FROM  A  FILE  (F)  OR  TO 

C  BE  GENERATED  (S)  BY  A  USER-DEFINED  EQUATION  LOCATED  IN 

C  THE  SUBROUTINE  sairpll. 


AN  INTEGER  THAT  SPECIFIES  TEE  NUMBER  OF  COMPLEX  VALUES 
TO  BE  STORED  IN  HE  ARRAY  xn2() .  FOR  option  =  COON 
OR  COOR,  N2  MUST  BE  AN  INTEGER  POWER  OF  2,  AND  NX  AND  N2 
MUST  BE  EQUAL. 


dsrce2  =  A  CHARACTER  VALUE  OF  'F'  OR  'S'  DENOTING  WHETHER  THE 
INPUT  ARRAY  xn2()  IS  TO  EE  READ  FROM  A  FHE  (F)  OR  TO 
BE  GENERATED  (S)  BY  A  USER-DEFINED  EQUATION  LOCATED  IN 
THE  SUBROUTINE  sampl2. 

option  =  A  CHARACTER  STRING  OF  POUR  LETTERS  DENOTING  THE 


OCMEUTATICN  DESIRED: 


'ICON' 

'LOOR' 

•COON' 

•COOR' 


LINEAR  CONVOLUTION 
LINEAR  CORRELATION 
dROJLAR  CONVOLUTION 
CIRCULAR  CORRELATION. 


xnl()  =  THE  FIRST  ARRAY  OF  CCMPLEX  INPUT  DATA.  IF  dsrcel  =  'F' 
IS  SPECIFIED  THE  USER  MUST  SUPPLY  THE  N1  INPUT  VALUES 
IN  THE  FILE.  IF  dsrcel  =  'S'  THE  USER  HAS  ELECTED  TO 
GENERATE  THE  INPUT  DATA  BY  PROVIDING  THE  APPROPRIATE 
FORTRAN  STATEMENTS  IN  THE  SPACE  ALLOCATED  IN  SUBROUTINE 
sampll.  IF  THIS  METHOD  OF  DATA  GENERATION  IS  ELECTED 
THE  PROGRAM  MIST  BE  RECOMPILED  BEFORE  EXECUTION. 

xn2()  =  THE  SECOND  ARRAY  OF  COMPLEX  INPUT  DATA.  IF  dsrce2  « 

'S'  IS  SPECIFIED  THE  USER  HAS  ELECTED  TO  PROVIDE  THE 
APPROPRIATE  FORTRAN  STATEMENTS  IN  THE  SPACE  ALLOCATED 
IN  SUBROUTINE  sampl2.  IF  THIS  METHOD  OF  DATA 
GENERATION  IS  ELECTED  THE  PROGRAM  MUST  HE  RECOMPILED 
BEFORE  EXECUTION.  IF  dsroe2  =  'F'  THEN  THE  USER  MUST 
SUPPLY  THE  N2  INPUT  VALUES  IN  THE  FIIE. 

NOTE:  THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN  PROGRAM 

FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********. 
THE  FORM  OF  THE  INPUT  DATA  FIIE  IS: 


LINE# 


ENTRIES 


FORMAT 


1 

2 

NOTE  1 
NOTE  2 

NOTES  ] 


Nl, dsrcel 
N2 , dsrce2 , option 
xnl() 
xn2() 


i3,tll,al 

i3,tll,al,t21,a4 

2fl0.0 

2fl0.0 


IF  dsrcel  =  'F'  THEN  THE  LINES  3...N1+2  MUST  CONTAIN 
THE  VALUES  TO  BE  READ  INTO  THE  ARRAY  xnl()  .  EACH  VALUE 
IS  READ  AS  A  COMPLEX  NUMBER,  I.E.,  REAL  IMAGINARY. 
IF  dsrcel  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE 
THE  VALUES  FOR  xnl()  IN  THE  SUBROUTINE  sampll.  THE 
USER  MUST  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  SUBROUTINE  sampll  TO  GENERATE  xnl()  . 


n  n  n  a  n  n  n  n  n  n  n  n  n  o  n  n  n  n  n  n  n  n  n  n  n  n  n  n  n  n 


2.  IF  dsrce2  =  'F'  THEN  THE  NEXT  N2  LINES  CONTAIN  THE 
VALUES  TO  BE  READ  INTO  THE  ARRAY  xn2  ()  .  EACH  VALUE 
IS  READ  AS  A  OCMPIEX  NUMBER,  I.E. ,  REAL  IMAGINARY. 

IF  dsrce2  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE 
THE  VALUES  FOR  xn2()  IN  THE  SUBROUTINE  sanpl2.  THE 
USER  MUST  EROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  SUBROUTINE  sanpl2  TO  GENERATE  THE  ARRAY  xn2  () . 

3.  THE  FORMAT  2fl0.0  USED  FOR  INPUT  DATA  PERMITS  THE 
DECIMAL  POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  TEN 
COLUMNS  AND  AISO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE 
USED  (E.G. ,  3146.2  =  3.1462E+03) . 

4.  IF  option  =  'COON'  OR  'COOR'  N1  MUST  BE  EQUAL  TO  N2. 


****************************  OUTPUT  ******************************** 


THE  INPUT  DATA  AS  WELL  AS  THE  OUTPUT  DATA  ARE  STORED  IN  TABULAR 
FORM  IN  THE  FILE  'OONOORFT.aUr' .  ADDITIONALLY,  THE  INPUT 
SEQUENCES  AND  THE  CUTEUT  SEQUENCE  ARE  WRITTEN  INTO  THE  FIIE 
' CONCORFr.DAT'  TO  FACILITATE  PLOTTING  BY  A  SEPARATE,  USER 
SUPPLIED  PROGRAM.  THE  FORMAT  OF  THE  DATA  IN  ' Q3NCQRFT.DAT'  IS: 
el2 . 6 ,  2x,  el2 . 6 .  THE  FIRST  ENTRY  CORRESPONDS  TO  THE  ORDINATE 
VALUE  AND  THE  SECOND  ENTRY,  THE  ABSCISSA  VALUE.  ADDITIONAL  HEADER 
INFORMATION  IS  WRITTEN  INTO  'CONOORFT.DAT'  TO  ALLOW  FOR  CONTROL 
AND  LABELING  OF  EACH  PLOT. 


C****************************  EXAMPLE  ******************************** 


C 

C 

C  THE  INPUT  PARAMETERS  BELOW  ARE  STORED  IN  THE  INPUT  FILE 
C  'OONCdRFT.TST' .  THE  PROGRAM  READS  THE  FIRST  4  VALUES  INTO  xnl() 
C  (dsrcel  =  'F' ,  N1  =  4) ,  AND  READS  THE  NEXT  5  VALUES  INTO  xn2() 

C  (dsrce2  =  'F' ,  N2  =  5) .  THE  GOAL  IS  TO  CALCULATE  THE  LINEAR 

C  CONVOLUTION  OF  THE  TWO  INPUT  ARRAYS. 

C 

c 

C  004  F 

C  005  F  LOON 

C  1.0  0.0 


oooooooonooooooooooooooooooooooooooooooooooooooooooo 


2.0  0.0 

2.0  0.0 

2.0  0.0 

2.0  0.0 


THE  RESULTING  OUTPUT  DATA  FH£  'OONCORFT.OUT'  IS: 

INPUT  DATA  SOURCEFIIE:  CONCORFT.TST 

N1  =  4  dsrcel  =  F  N2  =  5  dsrce2  =  F 

option  =  LOON 


INPUT  DATA 


xnl() 


n 

REAL 

IMAGINARY 

0 

. 100000E+01 

. OOOOOOE+OO 

1 

. 100000E+01 

. 000000E+00 

2 

. 100000E+01 

.OOOOOOE+OO 

3 

. 100000E+01 

•OOOOOOE+OO 

xn2() 

n 

REAL 

IMAGINARY 

0 

. 200000E+01 

.OOOOOOE+OO 

1 

. 200000E+01 

•OOOOOOE+OO 

2 

. 200000E+01 

.OOOOOOE+OO 

3 

. 200000E+01 

.OOOOOOE+OO 

4 

. 200000E+01 

.OOOOOOE+OO 

OUTPUT  DATA 

xn3() 

n 

REAL 

IMAGINARY 

0 

•200000E+01 

•894070E-07 

1 

. 400000E+01 

-.421468E-07 

2 

. 600000E+01 

-.754979E-07 

3 

. 800000E+01 

-.168587E-06 

4 

. 800000E+01 

-. 89407 0E-07 

5 

. 600000E+01 

.421468E-07 

6 

.400000E+01 

.754979E-07 

7 

•200000E+01 

. 168587E-06 

NOTE:  FOR  ILLUSTRATIVE  PURPOSES  THE  INPUT  SEQUENCES  OCUID  HAVE 
BEEN  GENERATED  BY  SPECIFYING  dsrce#  =  'S'  AND  WRITING  THE 
APPROPRIATE  FORTRAN  STATEMENTS  INTO  THE  sampl#  SUBROUTINES. 
THE  STATEMENTS  THAT  OOUIL  BE  USED  TO  ACCOMPLISH  THIS  ARE 
WRITTEN  INTO  THE  RESPECTIVE  SUBROUTINES  BUT  ARE  'OdMENIED 
CUT'. 
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c 

C**************************  MAIN  PROGRAM  ***************************** 


character  infile* 12,  option*4 ,  mode*l,  dsrcel*l,  dsrce2*l 
character  title*20 

ccnplex  xnl(0:255) ,  xn2(0:255),  xn3(0:255) 
ocnplex  xtnpl (0:255) ,  xtmp2(0:255) ,  xtmp3 (0:255) 
real  nn 

C  PRCMPT  USER  FOR  MODE:  BATCH  OR  TEST. 

write(*,1115) 
read(*,1117)  mode 

if  ((mode.eq.  'y')  .or.  (mode.eq.  * Y* ) )  then 
mode  =  'Y' 
write (*,1118) 
read (*,1119)  infile 
else 

infile  =  'OONOORFr.XN' 
endif 

C  UNTT=1  DEFINED  AS  INFUT  FII£.  UNTIS=2,3  DEFINED  AS  OOTEUT  FIIES. 

open  (unit=l ,  f  ile=inf  ile ,  status= '  old 1 ,  iostat=ierr ,  err=999 ) 
open  (unit=2 ,  file= '  CDNOORFT .  CUT ' ) 
open  (uni t=3 ,  f ile= '  CQNCQRFT.  DAT 1 ) 

C  READ  INPUT  PARAMETERS  AND  CONDUCT  ERROR  CHECKS. 

read(l,1000)  Nl,  dsroel 
read(l,1001)  N2,  dsrce2,  option 

if  ( (dsrcel.eq.  'f ')  .or.  (dsrcel.eq.  ’F1) )  then 
dsrcel  =  'F' 

elseif  ((dsrcel.eq.  's')  .or.  (dsrcel.eq.  'S') )  then 
dsrcel  =  'S' 
else 

write (*,1009)  'dsrcel  =  ' ,  dsrcel 

stop  "Ihe  allowed  values  for  dsrcel  are:  1 'F' '  or  ' 'S' ' . ' 
endif 

if ( (dsrce2.eq. ' f * ) .or. (dsrce2.eq. 'F') )  then 
dsrce2  =  'F' 

elseif ( (dsrce2.eq.  's') .or. (dsrce2.eq. 'S') )  then 
dsrce2  =  'S' 
else 

write(*, 1009)  'dsrce2  =  ',  dsrce2 

step  "Ihe  allowed  values  for  dsrce2  are:  " F"  or  '  'S " . ' 
endif 


if  ((option,  eq.  'ccon')  .or.  (option.eq.  ■OCXXT* ) )  then 
optical  =  'COCN' 

title  =  'Circular  Convolution' 

N3  =  N1 
iend  =  N3 

elseif  ((option.eq.  'ccor')  .or.  (option.eq.  'COQR'))  then 
option  =  'COQR' 

title  =  'Circular  Correlation' 

N3  =  N1 
iend  =  N3 

elseif  ( (option.eq.  'Icon')  .or.  (option.eq.  'ICON') )  then 
option  =  'ICON' 
title  =  'Linear  Convolution' 
elseif  ((option.eq.  'lcor')  .or.  (option.eq.  'LOQR'))  then 
option  =  'LOQR' 
title  =  'Linear  Correlation 1 
else 

write (*,1011)  option 

step  'The  allowed  values  for  option  are:  COON,  COQR,  LOON,  LCOR. 

_ a  ’  r 


if ((Nl.lt.l) .or. (Nl.gt.128) )  then 
write (*,1010)  'Nl=  ',  N1 

stop  'The  allowed  values  for  N1  are:  1  <=  N1  <=  128. ' 
elseif  ( (N2.lt. l)  .or.  (N2.gt.512))  then 
write (*,1010)  'N2  =  ',  N2 

stop  'The  allowed  values  for  N2  are:  1  <=  N2  <=  128. ' 
elseif  ( (option.eq.  'COON')  .or.  (option.eq.  'CCOR'))  then 
if (Nl.ne.N2)  then 
write (*,1008)  option,  Nl,  N2 

stop  'For  option  =  '  'COQR' '  or  '  'CCON' '  Nl  must  equal  N2. 1 
endif 

do  14  m=0,  10 

if (2**m-N3)  14,13,15 
15  write (*,1007)  optical,  Nl,  N2 

stop  'Error,  Nl  and  N2  are  not  integer  powers  of  2. ' 

14  continue 
13  endif 

C  DEFINE  CONSTANTS. 

k  =  8 

nunplts  =  6 

C  FOR  dsree#  =  'F'  READ  INR7T  SEQUENCE(S)  FROM  THE  DATA  FIIE. 

C  FOR  dsree#  =  'S'  CALL  sample#  TO  GENERATE  THE  INEUT  SEQUENCE (S) 
C  THE  INHJT  SEQUENCES  ARE  STORED  IN  THE  ARRAYS  xnl() ,  xn2() . 


if (dsrcel.eq. 'F')  then 
read(l,1002)  (xnl(i)  ,i=0,Nl-l) 
else 

call  sanpll(xnl,Nl) 
endif 

if (dsrce2.eq. *F* )  then 
read(l, 1002)  (xn2 (i) , i=0,N2-l) 
else 

call  sampl2(xn2,N2) 
endif 


C  FOR  TEST  MODE  ECHO  INPUT  DATA  ONTO  MONITOR  (UNIT  =  *)  . 

if  (mode.eq.  'Y')  then 
write (*,1016)  infile 
if  ( (Nl.lt. 8)  .or.  (N2.lt. 8) )  k=min(Nl,N2) 
write(*,1017)  Nl,  dsrcel,  N2,  dsrce2 
write (*,1018)  cation 
write(*,1012)  k 
write (*,1013) 
do  3  i=0,  k-1 

write(*,1020)  i,  xnl(i),  xn2(i) 

3  continue 

endif 

C  WRITE  THE  INPUT  SEQUENCES  INTO  FILE:  GQNCORFT.DAT. 

write (3, 2000)  nunoplts 
write (3, 2001)  Nl 

write (3,*)  'INPUT  SEQUENCE  xnl  (REAL)  ' 
write(3,*)  'SAMPLE  #  (n) ' 
write(3,*)  'REAL  xnl() ' 
do  54  i=0,  Nl-1 
nn  =  i 

write(3,2010)  nn,  real(xnl(i)) 

54  continue 

write (3, 2001)  Nl 

write (3,*)  'INPUT  SEQUENCE  xnl  (IMAGINARY)' 
write(3,*)  'SAMPLE  #  (n) ' 
write(3,*)  'IMAG  xnl() ' 
do  55  i=0,  Nl-1 
nn  =  i 

write(3,2010)  nn,  aimag(xnl(i) ) 

55  continue 

write (3, 2001)  N2 

write (3,*)  ' INPUT  SEQUENCE  xn2  (REAL)' 
write(3,*)  'SAMPLE  #  (n)' 
write(3,*)  'REAL  xn2() ' 


write(3,20l0)  nn,  real(xn2(i)) 

56  continue 

write (3, 2001)  N2 

write(3,*)  'INTOT  SEQUENCE  xn2  (IMAGINARY) ' 
write(3,*)  'SAMPLE  #  (n)' 
write(3,*)  'IMAG  xn2() ' 
do  57  1=0,  N2-1 
nn  =  i 

write(3,2010)  nn,  aimag(xn2(i) ) 

57  continue 

C  WRITE  INTOT  DATA  INTO  FILE:  OONOORFT.OUT. 

write(2,1016)  infile 
write(2,1017)  Nl,  dsrcel,  N2,  dsrce2 
write (2, 1018)  option 
write (2, 1014) 
write(2,10l5)  'xnl() ' 
do  65  i=0,  Nl-1 
write(2,1026)  i,  xnl(i) 

65  continue 

write (2, 1015)  'xn2() ' 
do  66  i=0,  N2-1 
write(2,1026)  i,  xn2(i) 

66  continue 

C  FOR  LINEAR  CONVOLUTION  OR  UNEAR  OQRREEATICN  BOOH  INTOT  ARRAYS 
C  ARE  ZERO-PADDED  TO  IENC7IH  N3  =  2**m  WHERE  2**m  IS  GREATER  THAN 
C  OR  EQUAL  TO  Nl  +  N2  -  1. 

if ( (option. eq.  'LOON')  .or.  (option. eq.  'IGOR'))  then 
N3  =  Nl  +  N2  -  1 
iend  =  N3 
do  555  m=0,  10 

if (2**m  -  N3)  555,556,556 

555  continue 

556  N3  =  2**m 

call  zercpad(xnl,Nl,N3) 
call  zerqpad(xn2,N2,N3) 
endif 

C  THE  ARRAYS  ARE  RESEQUENCED  IN  BIT-REVERSED  ORDER  BEFORE  THE 
C  FFT  CALCULATION  IS  PERFORMED. 

call  reversal (N3,m,xnl,xtnpl) 
call  reversal (N3,m,xn2,xtnp2) 


•.*  v.l 


«tfe  »■•  ■<«>  <■,»  >,» 


call  fft(N3,m,xtrrpl) 
call  fft(N3,m,xtnp2) 

C  IF  optical  =  'COON'  CR  'LOON'  PERFORM  CONVOLUTION  COMPUTATION. 


if( (option. eq.  'LOON' )  .or.  (option. eq.  'COON'))  then 
do  22  i=0,  N3-1 

xbip>3(i)  =  xtnpl(i)*xt3ip2(i) 

22  continue 

else 

C  IF  Option  =  'COOR'  OR  'LOOR'  PERFORM  CORRELATION  CCMRJIATION. 

do  75  i=0,  N3-1 

xtnpl(i)  -  conjg(xtnpl(i) ) 
xtnp3(i)  =  xtnpl(i)*xtnp2(i) 

75  continue 

endif 

C  THE  RESULTING  ARRAYS  ARE  RESEQUENCED  IN  BIT-REVERSED  ORDER 
C  BEFORE  THE  INVERSE  FFT  IS  CALCULATED. 

call  reversal (N3,m,xtarp3,xn3) 
call  irivfft  (N3,m,xn3) 

C  WRITE  RESULTS  INTO  FILE:  OCNOORFT.DAT. 

write (3, 2001)  iend 
write (3, 2003)  title 
write(3,*)  'SAMPLE  #  (n)  ' 
write(3,*)  'REAL  xn3 () ' 
do  58  i=0,  iend-1 
nn  =  i 

write(3,2010)  nn,  real(xn3(i)) 

58  continue 

write (3, 2001)  iend 
write (3, 2003)  title 
write(3,*)  'SAMPLE#  (n) ' 
write(3,*)  'IMAG  xn3() ' 
do  59  i=0,  iend-1 
nn  =  i 

write(3,2010)  nn,  aimag(xn3(i) ) 

59  continue 
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C  WRITE  RESULTS  INTO  FILE:  OONCORFT.OUT. 

write (2, 1025) 
write(2,1015)  'xn3()' 
do  67  i=0,  iend-1 
write(2,l026)  i,  xn3(i) 

67  continue 

write (*,1019) 

999  close (uni t=l) 
close (unit=2) 
close (unit=3) 

if (ierr.gt.O)  then 
write (*,1116)  infile,  ierr 
endif 

C  ********  INPUT  FORMAT  ******** 

1000  format ( i3 , t 11 , al ) 

1001  format (i3, til, al,t21,a4) 

1002  format (2f 10.0) 

c  ******************************** 

1007  OformatC  option  =  ’,34,*,  Nl=  ',i3,',  N2  =  ' ,i3,/, 1  For  ', 

1' option  =  COON  or  CCOR,  N1  and  N2  must  be  integer  powers  of  2. ') 

1008  OformatC  option  =  ',34,',  N1  =  ',i3,',  N2  =  ',i3,',  Error,', 
1'  N1  is  not  equal  to  N2. ') 

1009  format ( lx, al0,al, '  Error,  value  not  allowed. ' ) 

1010  format(lx,a5,i3,2x, 'Error,  value  not  allowed.') 

1011  format(lx, 'option  =  '  ,a4,2x,  'Error,  illegal  value  for  option.') 

1012  0 format  (/,  '  THE  FIRST  '  ,il, '  VAILES  OF  INPUT  DATA  ARE  LISTED  ', 
1/,  '  BELOW,  VERIFY  THAT  THE  DATA  IS  CORRECT.  ' ,/) 

1013  0format(t21,  'xnl()  ',t53,  *xn2() ' ,/,t4,  'n',tll,  *REAL',t27, 

1' IMAGINARY ',t43,  'REAL'  ,t59,  'IMAGINARY') 

1014  format (///,t21,  'INPUT  DATA' ,//) 

1015  format (/,t21,a7,/,t6,  'n'  ,tl3,  'REAL'  ,t29,  'IMAGINARY') 

1016  f ormat (//////, '  INPUT  DATA  S0URCEFILE:  ',al2) 

1017  0format('  N1  =  ' ,i3,5x, 'dsrcel  =  ',al,10x, 'N2  =  ',i3,5x, 
l'dsrce2  =  ' ,al) 

1018  format (lx, 'option  =  ',a4) 

1019  0 format (/,  '  TABULAR  OUTPUT  DATA  IS  STORED  IN  FILE:  OONOORFT.OUT.  ' 
1,/,'  PLOTTING  DATA  IS  STORED  IN  FILE:  C0NC0RFT.DAT.  ' ) 

1020  fonnat(t4,il,4(4x,el2.6) ) 

1025  format (///,t20,  'OUTPUT  DATA' ,//) 

1026  format(t4,i3,2(4x,el2.6) ) 

1115  0format(lx,  'DO  YOU  WISH  TO  FUN  THIS  FROGRAM  IN  TEST' , 

1'  MODE  ?  (Y/N)  <CR>  :  ',\,) 

1116  0format(///,  lx, 'ERROR  OPENING  INPUT  FILE:  '  ,al2,/,lx, 'PROGRAM' , 

1'  TERMINATED. ',//,  lx, 'ERROR  00DE:  '  ,i4, /////) 

1117  format (al) 


1118  Oformat  (///// ,  lx,  'TYPE  THE  NAME  OF  YOUR  DATA  FIIE  FOLLOWED' , 

1'  BY  <CR>. ' •  IF  YOU  DESIRE  TO  MAKE  A  TEST  RUN  USING  THE' , 
2*  SAMPLE  DATA  ALREADY  STORED' ,/, '  IN  THE  FIIE:  OONOORFT.TST' , 
3'  TYPE:  OONaaRFT.TST  <CR>',/,  '  FILENAME:  \\») 

1119  format (al2) 

2000  format (il) 

2001  format (i3) 

2003  format (a20) 

2010  format(el2.6,2x,el2.6) 

end 


C  SUBROUTINE:  zeropad 


C  PURPOSE:  THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY  xn() 
C  OF  LENGTH  N,  AND  ZERO  PADS  THE  ARRAY  TO  LENGTH  N3  WHERE 
C  N3  =  N1  +  N2  -  1. 


subroutine  zeropad  (xn,N,N3) 
complex  xn(0:N3-l) 

do  33  i=N,  N3-1 
xn(i)  =  cnplx(o. 0,0.0) 

33  continue 

return 

end 


C  SUBROUTINE:  invfft 


C  PURPOSE:  THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY 
C  X() ,  COMPUTES  THE  INVERSE  FFT  OF  THE  ARRAY,  AND 

C  RETURNS  THE  RESULTING  SEQUENCE  IN  THE  ARRAY  x()  . 


subroutine  invfft (N,m,x) 
complex  x(0:N-l) 

en  =  N 

C  COMPUTE  THE  COMPLEX  CONJUGATE  OF  THE  INPUT  DATA. 


70 


do  70  i=0,  N-l 
x(i)  =  conjg(x(i) ) 
continue 


C  COMPUTE  THE  EAST  FOURIER  TRANSFORM  OF  THE  ARRAY, 
call  fft(N,m,x) 

C  OCMEUIE  THE  COMPLEX  CONJUGATE  OF  THE  RESULTING  ARRAY. 

do  80  i=0,  N-l 
x(i)  =  conjg(x(i)  )/en 
80  continue 

return 

end 

C  SUBROUTINE:  reversal 


C  PURPOSE:  THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  COMPLEX  ARRAY 
C  XtnpO  .  THE  OUTPUT  OF  THIS  SUBROUTINE  IS  THE  COMPLEX 

C  ARRAY  x()  THAT  CONTAINS  THE  INPUT  VALUES  IN  BIT- 

C  REVERSED  ORDER. 


subroutine  reversal  (N,m,xtmp,x) 
ccnplex  xtnp(0:N-l) ,  x(0:N-l) 

do  10  Jc=0,  N-l 
newaddr  =  0 
maddr  =  k 
do  20  i=0,  m-1 

lrmndr  =  mod  (maddr,  2) 
newaddr  =  newaddr  +  lrmndr*2**  (m-l-i) 
maddr  =  maddr/ 2 
20  continue 

x  (newaddr)  =  xtnp(k) 

10  continue 

return 

end 


c  SUBROUTINE:  fft 


C  PURPOSE:  THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  OCMPIEX  ARRAY  x.() , 
C  COMPUTES  THE  FAST  FOURIER  TRANSFORM  (FFT)  OF  THE 

C  ARRAY,  AND  REIURNS  THE  RESULTING  SEQUENCE  IN  THE 

C  ORIGINAL  ARRAY  x()  . 


subroutine  fft(N,m,x) 
cctiplex  x(0:N-l) ,  W,  tup 


o  o  o  n  n  o 


pi  =  4.0*atan(1.0) 
en  =  N 

do  50  LfI,  m 
ispace  =  2**L 
s  =  N/ ispace 
iwidth  =  ispace/ 2 
do  40  j=0,  iwidth-l 
r  =  s*j 

alpha  =  2.0*pi*r/en 
W  =  cnplx (cos  (alpha) ,  -sin (alpha) ) 
do  30  itop=j,  N-2,  ispace 
ibot  =  itop  +  iwidth 
trap  =  x(ibot)  *W 
x(ibot)  =  x(itop)  -  tup 
x(itop)  =  x(itop)  +  tmp 
30  continue 

40  continue 
50  continue 

return 


C  SUBROUTINE:  sairpll 


PURPOSE:  THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  SAMPLES 
OF  A  CONTINUOUS  FUNCTION  AND  STORE  THEM  IN  TOE  ARRAY 
xnl() .  IF  dsrcel  =  'S'  TOEN  TOE  MAIN  PROGRAM  WILL 
CALL  TOES  SUBROUTINE  TO  GENERATE  TOE  VALUES  FOR 
xnl() .  IF  dsrcel  DOES  NOT  EQUAL  'S'  TOEN  TOTS 
SUBROUTINE  WILL  NOT  BE  CALLED  BY  TOE  MAIN  PROGRAM. 


subroutine  sanpll(xnl,Nl) 
complex  xnl(0:Nl-l) 

pi  =  4.0*atan(1.0) 
enl  =  N1 

C* ******  ******************* ******** ************************************* 

C  DEVELOP  TOE  SAMPLING  AIGORITOM  FOR  xnl()  IN  TOES  SPACE.  TOE 
C  STATEMENTS  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  RULES  AND 
C  MAY  USE  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  SIN()  ,00S()  . . . 

C  AN  EXAMPLE  OF  AN  ALGORITHM  GENERATING  VALUES  FOR  xnl()  IS: 

C 

C  ***  EXAMPLE  *** 


oooononoo  o  oonooo 


i  ^  ; -i'i'  **_*••* * 


»  ».«  i  t 


C  do  6  i=0,  Nl-1 
C  xnl(i)  =  cnplx(l. 0,0.0) 

C  6  continue 


c*  ******** **** *** **** ** ************************************************* 


return 

end 


SUBROUTINE:  sanp!2 


PURPOSE:  THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  SAMPLES 
OF  A  CONTINUOUS  FUNCTION  AND  STORE  THEM  IN  THE  ARRAY 
xn2() .  IF  dsrce2  =  'S'  THEN  THE  MAIN  EROGRAM  WILL 
CALL  THIS  SUBROUTINE  TO  GENERATE  THE  VALUES  FOR 
xn2() .  IF  dsrce2  DOES  NOT  EQUAL  'S'  THEN  THIS 
SUBROUTINE  WILL  NOT  BE  CALLED  BY  THE  MAIN  PROGRAM. 


subroutine  sanpl2(xn2,N2) 
ccrplex  xn2(0:N2-l) 

pi  =  4.0*atan(1.0) 
en2  =  N2 

A********************************************************************** 

DEVELOP  THE  SAMPLING  ALGORITHM  FOR  xn2()  IN  THIS  SPACE.  THE 
STATEMENTS  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  RUIZS  AND 
MAY  USE  FORTRAN  77  INIRINSIC  FUNCTIONS  SUCH  AS:  SINQ  ,OOS()  . . . 

AN  EXAMPLE  OF  AN  ALGORITHM  GENERATING  VALUES  FOR  xn2()  IS: 

***  EXAMPLE  *** 

do  7  i=0,  N2-1 

xn2(i)  =  C3tplx(2. 0,0.0) 

C  7  continue 

C*********************************************************************** 


return 

end 


VERSION:  2/03/88 
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OONOOR.FOR 


THIS  PROGRAM  PERFORMS  EITHER  THE  LINEAR  OONVOII7TION  5 

(ICON)  OR  THE  LINEAR  CORRELATION  (DOOR)  OF  TWO  ARRAYS 

OF  INPUT  DATA.  THE  PROGRAM  CONSISTS  OF  A  MAIN  PROGRAM 

AND  FOUR  SUBROUTINES.  THE  SUBROUTINE  convol  PERFORMS 

THE  CONVOLUTION  OF  THE  TWO  INPUT  ARRAYS  xnl()  and  xn2() 

AND  STORES  THE  RESULTS  IN  THE  OUTPUT  ARRAY  yn()  .  THE  ; 

SUBROUTINE  correl  PERFORMS  THE  CORRELATION  OF  THE  TWO 

ARRAYS  xnl()  AND  xn2()  ACCORDING  TO  THE  EQUATION:  3 

Rxnlxn2  (p)  =  SUM[xnl(m)*xn2(m+p)].  THE  TWO  SUBROUTINES 

sampll  AND  SAMPL2  ALLOW  THE  USER  THE  OPTION  OF 

GENERATING  EITHER  OF  THE  TWO  INPUT  ARRAYS  BY  WRITING 

THE  APPROPRIATE  EQUATIONS.  IF  THE  USER  CHOOSES  TO 

GENERATE  THE  INPUT  DATA  BY  USING  EITHER  OF  THE  sampl 

SUBROUTINES,  THE  EQUATIONS  MUST  BE  WRITTEN  INTO  THE  ; 

SUBROUTINES  USING  STANDARD  FORTRAN  77  EXECUTABLE  STATE¬ 
MENTS  AND  THE  VALUES  GENERATED  MUST  BE  STORED  IN  THE 
ARRAYS  xnl()  AND  xn2()  .  THE  USER  HAS  THE  OPTION  OF 
SELECTING  CHE  OF  TWO  OPERATING  MODES:  BATCH  OR  TEST.  IN 
BATCH  MODE  THE  AMOUNT  OF  INTERACTION  WITH  THE  USER  IS 

MINIMIZED  AND  IT  IS  ASSUMED  THAT  THE  INPUT  PARAMETERS  | 

HAVE  BEEN  STORED  IN  THE  INPUT  FILE  '0^0®.®' .  IN  1 

TEST  MODE  THE  USER  IS  PROMPTED  FOR  THE  NAME  OF  THE 
INPUT  FILE  AND  HAS  THE  OPTION  TO  PERFORM  A  TRIAL  RUN 
USING  THE  DATA  STORED  IN  THE  FILE  'CONCOR.TST' . 

IT  IS  RECOMMENDED  THAT  FIRST-TIME  USERS  SELECT  THE 
TEST  MODE  AND  PERFORM  A  TRIAL  RUN  WITH  THE  FRESTORED 
DATA.  THE  TEST  MODE  ECHOES  PORTIONS  OF  THE  INPUT 
DATA  ONTO  THE  MONITOR  TO  ALLOW  VERIFICATION  OF  ITS 
ACCURACY.  THE  OUTPUT  OF  THE  PROGRAM  'aONOOR.POR'  IS 
STORED  IN  THE  ARRAY  yn()  IF  LINEAR  CONVOLUTION  (ICON) 

IS  SELECTED  OR  IN  THE  ARRAY  R()  IF  LINEAR  CORRELATION 
(DOOR)  IS  SELECTED.  THE  OUTPUT  IS  STORED  IN  TABULAR 
FORM  IN  THE  FILE  'OONCOR.OUT'  AND  IN  A  FORM  SUITABLE 
FOR  PLOTTING  IN  THE  FILE  'CONCOR.nAT' . 


q*******************************  input  ******************************* 
C 

c 

C  THIS  PROGRAM  ASSUMES  THAT  THERE  ARE  TWO  SEQUENCES  OF  INPUT  DATA 
C  STORED  IN  THE  ARRAYS  xnl()  AND  xn2()  .  THE  SEQUENCE  xnl()  EXISTS 
C  IN  THE  RANGE:  nsl  <=  n  <=  nel.  THE  SEQUENCE  xn2()  EXISTS  IN  THE 
C  RANGE:  ns2  <=  n  <=  ne2.  THE  CONSTRAINTS  ON  THESE  VALUES  ARE: 

C  -128  <=  nsl  <=  nel  <=  128  AND  -128  <=  ns2  <=  ne2  <=  128. 

C  THIS  PROGRAM  ALLOWS  THE  USER  THE  OPTION  OF  EITHER  READING 
C  THE  INPUT  ARRAYS  FRCM  A  DATA  FILE  OR  OF  GENERATING  THE  INPUT 
C  VALUES  FRCM  AN  ITERATIVE  EQUATION  IN  THE  sampl  SUBROUTINE  (S)  . 

C  THE  PARAMETERS  DESCRIBED  BELOW  ALLOW  THE  USER  TO  SELECT  THE 


C  DESIRED  OPTIONS  AND  THESE  PARAMETERS  MUST  BE  STORED  IN  THE  INPUT 
C  FUE  'OONOOR. IN' .  ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS 
C  FROGRAM  REQUIRE  FORMATTED  INPUT.  PARTICULAR  ATTENTION  SHOUID  BE 
C  PAID  TO  THESE  FORMATS,  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT  TO 
C  DISTINGUISH  BETWEEN  'REAL'  AND  INTEGER  DATA. 

C 

C 


c 

p 

NAME 

TYPE 

RANGE 

(ARRAYS) 

RESTRICTIONS 

c 

option 

CHARACTER 

•ICON' 

OR  'IOOR' 

c 

nsl 

INTEGER 

-128  <= 

nsl  <=  128 

c 

nel 

INTEGER 

-128  <= 

nel  <=  128 

c 

dsrcel 

CHARACTER 

ipt 

OR  'S' 

c 

ns2 

INTEGER 

-128  <= 

ns2  <=  128 

c 

ne2 

INTEGER 

-128  <= 

ne2  <=  128 

c 

dsrce2 

CHARACTER 

ipt 

OR  'S' 

c 

xnl(n) 

REAL 

nsl  <= 

n 

<=  nel 

nsl 

<=  nel 

c 

p 

xn2(n) 

REAL 

ns2  <= 

n 

<=  ne2 

ns2 

<-  m2 

c 

p 

WHERE: 

C 

option  = 

A  CHARACTER  STRING  OF 

POUR  LETTERS 

DENOTING  THE 

C  COMPUTATION  DESIRED:  'ICON'  =  LINEAR  CONVOLUTION 

C  'DOOR*  =  LINEAR  CORRELATION. 

C 

C  nsl  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  STARTING  SAMPLE  POINT  OF 
C  THE  SEQUENCE  xnl() . 

C 

C  nel  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  ENDING  SAMPLE  POINT  OF 
C  THE  SEQUENCE  xnl() . 

C 

C  dsrcel  =  A  CHARACTER  VALUE  OF  'F'  OR  ’S'  DENOTING  WHETHER  THE 
C  INPUT  ARRAY  xnl()  IS  TO  BE  READ  FROM  A  FIIE  (F)  OR  TO 

C  BE  GENERATED  (S)  BY  A  USER-DEFINED  EQUATION  LOCATED  IN 

C  THE  SUBROUTINE  saitpll. 

C 

C  ns2  -  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  STARTING  SAMPLE  POINT  OF 
C  THE  SEQUENCE  xn2() . 

C 

C  ne2  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  ENDING  SAMPLE  POINT  OF 
C  THE  SEQUENCE  xn2() . 

C 


dsrce2  =  A  CHARACTER  VALUE  OF  'F'  OR  'S'  DENOTING  WHETHER  THE 
INPUT  ARRAY  xn2()  IS  TO  BE  READ  FROM  A  FIIE  (F)  OR  TO 
BE  GENERATED  (S)  BY  A  USER-DEFINED  EQUATION  LOCATED  IN 
THE  SUBROUTINE  sampl2. 


xnl()  =  THE  FIRST  ARRAY  OF  INPUT  DATA.  IF  dsrcel  =  'F'  IS 

SPECIFIED,  THE  USER  MUST  SUPPLY  THE  N1  INPUT  VALUES  IN 
THE  FILE  (WHERE  N1  =  nel  -  nsl  +  1) .  IF  dsrcel  =  'S' 
THEN  THE  USER  HAS  ELECTED  TO  GENERATE  THE  INPUT 
SEQUENCE  xnl()  BY  WRITING  THE  APPROPRIATE  FORTRAN 


oooo  Qooonononnnonnoooonoooooonoooonooooooooooooooo 


STATEMENTS  IN  THE  SPACE  ALLOCATED  IN  SUBROUTINE  sampll. 
IF  HUS  METHOD  OF  DATA  GENERATION  IS  ELECTED  THE  FROGRAM 
MUST  BE  REOCMPIIED  BEFORE  EXECUTION. 


xn2()  =  THE  SECOND  ARRAY  OF  INR7T  DATA.  IF  dsrce2  =  'F'  IS 

SPECIFIED,  THE  USER  MUST  SUPPLY  THE  N2  INPUT  VALUES  IN 
THE  FUE  (WHERE  N2  =  ne2  -  ns2  +  1) .  IF  dsrce2  =  'S' 
THEN  THE  USER  HAS  ELECTED  TO  GENERATE  THE  INPUT 
SEQUENCE  xn2()  BY  WRITING  THE  APPROPRIATE  FORTRAN 
STATEMENTS  IN  THE  SPACE  ALLOCATED  IN  SUBROUTINE  samp!2. 
IF  THIS  METHOD  OF  DATA  GENERATION  IS  ELECTED  THE  PROGRAM 
MUST  BE  REOCMPIIED  BEFORE  EXECUTION. 

NOTE:  THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN  PROGRAM 

FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********* 
THE  FORM  OF  THE  INPUT  DATA  FILE  IS: 

LINE#  ENTRIES  FORMAT 


1 

2 

3 

NOTE1 

NCTE2 


option 

nsl,nel,dsrcel 

ns2,ne2,dsrce2 

xnl() 

xn2() 


a4 

i4,tll,i4,t21,al 

i4,tll,i4,t21,al 

flO.O 

flO.O 


NOTES  1.  IF  dsrcel  -  'F'  THEN  THE  NEXT  N1  LINES  MUST  CONIAIN 
THE  VALUES  TO  BE  READ  INTO  THE  ARRAY  xnl() . 

IF  dsrcel  ■  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE 
THE  VALUES  FOR  xnl()  IN  THE  SUBROUTINE  sampll.  THE 
USER  MUST  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  SUBROUTINE  sampll  TO  GENERATE  xnl() . 


2.  IF  dsrce2  =  'F'  THEN  THE  NEXT  N2  LINES  CONTAIN  THE  I 

VALUES  TO  BE  READ  INTO  THE  ARRAY  xn2().  j 

IF  dsroe2  =  'S'  THEN  THE  USER  HAS  ELECTED  TO  GENERATE 

THE  VALUES  FOR  xn2()  IN  THE  SUBROUTINE  saxrpl2.  THE 
USER  MUST  FROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS 
IN  SUBROUTINE  sairpl2  TO  GENERATE  THE  ARRAY  xn2() . 

3.  THE  FORMAT  flO.O  USED  FOR  INFUT  DATA  PERMITS  THE  1 

DECIMAL  POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  TEN  1 

COLUMNS  AND  ALSO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE  I 

USED  (E.G.,  3146.2  =  3.1462E+03).  9 


******************************  OUTPUT  ******************************* 


THE  OUTPUT  SEQUENCE  GENERATED  BY  THE  PROGRAM  WILL  EXIST  ONLY  OVER 
THE  NON-ZERO  RANGE  DETERMINED  AS  FOLLOWS:  FOR  option  =  'ICON' 


I 


.'1 


V 

«»* 

A* 

Iv 


I 

1'IJ 

5: 


'.'1 


yn(n)  EXISTS  IN  1HE  RANGE  nsl  +  ns2  <=  n  <=  nel  +  ne2;  FOR  option  = 
'LOCK'  R(p)  EXISTS  IN  THE  RANGE  ns2  -  nel  <=  p  <=  ne2  -  nsl.  THE 
INPUT  DATA  AS  WELL  AS  THE  OUTPUT  DATA  ARE  STORED  IN  TABULAR  FORM 
IN  THE  FILE  'CCNGCR-OUT' .  ADDITIONALLY,  THE  INPUT  SEQUENCES  AND 
THE  OUTPUT  SEQUENCE  ARE  WRITTEN  INTO  THE  FUE  ' CONCGR.DAT'  TO 
FACILITATE  PLOTTING  BY  A  SEPARATE,  USER  SUPPLIED  PROGRAM.  THE 
FORMAT  OF  THE  DATA  IN  'OONOOR.DAT'  IS:  el2.6,  2x,  el2.6.  THE 
FIRST  ENTRY  CORRESPONDS  TO  THE  ORDINATE  VALUE  AND  THE  SECOND  ENTRY, 
THE  ABSCISSA  VALUE.  ADDITIONAL  HEADER  INFORMATION  IS  WRITTEN  INK) 
'OONOOR.DAT'  TO  ALLOW  FOR  CONTROL  AND  LABELING  OF  EACH  PLOT. 


C ******************************  EXAMPLE  ****************************** 


THE  INPUT  PARAMETERS  BELOW  ARE  STORED  IN  THE  INPUT  FILE 
'CONGOR.TST' .  THE  PROGRAM  READS  THE  FIRST  4  VALUES  INTO  xnl() 
(dsroel  *  'F'),  AND  READS  THE  NEXT  5  VALUES  INK)  xn2()  (dsrce2 
' F' )  .  THE  GOAL  IS  TO  COMPUTE  THE  LINEAR  CONVOLUTION  OF  THE 
TWO  INPUT  ARRAYS. 

THE  SEQUENCE  xnl()  EXTENDS  FROM  -3  TO  0  (nsl  =  -3,  nel  =  0) . 
xnl(n)  =  1.0  FUR  nsl  <=  n  <=  nel 
=  0.0  OTHERWISE 


THE  SEQUENCE  xn2()  EXTENDS  FRCM  0  TO  4  (ns2 
xn2(n)  =  rH-1  PC®  ns2  <=  n  <=  ne2 
=  0.0  OTHERWISE 

THE  APPROPRIATE  INPUT  FUE  ENTRIES  ARE: 

LOON 

-3  0000  F 

0000  0004  F 

1.0 
1.0 
1.0 
1.0 
1.0 
2.0 
3.0 
4.0 
5.0 


THE  RESULTING  OUTPUT  DATA  FILE  'CONCOR. OUT' 

INPUT  DATA  SOURCEFIIE:  CONGOR.TST 
nsl  =  -3  nel  =  0  dsrcel  =  F 

ns2  =  0  ne2  =  4  dsrce2  =  F 

option  =  ICON 


=  0,  ne2  =  4) 


INPUT  DATA 


C 

c 

C  n  xnl(n) 

C 

C  -3  . 100000E+01 

C  -2  . 100000E+01 

C  -1  .100000E+01 

C  0  . 100000E+01 

C 

C  n  xn 2  (n) 

c 

C  0  . 100000E+01 

C  1  . 200000E+01 

C  2  . 300000E+01 

C  3  . 400000E+01 

C  4  . 500000E+01 

C 
C 

C  OUTPUT  DATA 

C 

C  n  yn(n) 

C 

C  -3  . 100000E+01 

C  -2  .300000E+01 

C  -1  . 600000E+01 

C  0  . 100000E+02 

C  1  . 140000E+02 

C  2  . 120000E+02 

C  3  . 900000E+01 

C  4  . 500000E+01 

C 
C 

C  NOTE:  FOR  ILLUSTRATIVE  PURPOSES  THE  INPUT  SEQUENCES  xnl() 

C  AND  xn2()  OOUID  HAVE  BEEN  GENERATED  BY  WRITING  THE 

C  APPROPRIATE  STATEMENTS  IN  SUBROUTINES  saitpll  AND 

C  AND  sampl2.  THE  STATEMENTS  THAT  OCUID  BE  USED  TO 

C  ACCOMPLISH  THIS  ARE  WRITTEN  INTO  THE  SUBROUTINES  BUT 

C  ARE  'COMMENTED  OUT'. 

C 

C 

C***************************  MAIN  PROGRAM  **************************** 


character  infile*12,  option* 4 ,  mode*l,  dsrcel*l,  dsrce2*l 
character  ylabl*5,  title* 18,  xlabl*12 

real  xnl (-128: 128)  ,xn2(-128:128) ,  yn(-256:256) ,  R(-256:256) 
real  nn 
integer  p 


C  ERCMPT  USER  FOR  MODE:  BATCH  OR  TEST. 


write (*,1115) 
read(*,H17)  mode 

if  ((mode.eq.  *y • )  .or.  (mode.eq.  'Y') )  then 
mode  =  ' Y' 
write (*,1118) 
read (*,1119)  infile 
else 

infile  =  'CONCX)R.IN, 
endif 

C  UNTT=1  DEFINED  AS  INRJT  FILE.  UNITS=2,3  DEFINED  AS  CUTHJT  FILES. 

open (unit=l , f ile=inf ile , status= ' old ' , iostat=ierr, err=999) 
open  (unit=2 ,  file= '  OCNOCSR.  CUT ' ) 
open  (unit=3 ,  file= 1 CCNCX3R.  DAT ' ) 

C  READ  INPUT  PARAMETERS  AND  CONDUCT  ERROR  CHECKS. 

read  (1,1000)  option 

read( 1,1001)  nsl,  nel,  dsrcel 

read(l,1001)  ns2,  ne2,  dsrce2 

if  ( (optical. eq.  'loan')  .or.  (option. eq.  'LOCN'))  then 
optical  =  'LOON' 
ylabl  =  'yn(n) ' 
xlabl  =  'SAMPLE  #  (n)  ' 
title  =  'Linear  Convolution' 
ns3  =  nsl  +  ns2 
ne3  =  nel  +  ne2 

elseif  ( (option,  eq. '  lcor ' ) . or .  (option. eq. '  DOCK' ) )  then 
option  =  'LOOK' 
ylabl  =  'R(p) ' 
xlabl  =  'SAMPLE  #  (p) ' 
title  =  'Linear  Correlation' 
ns3  =  ns2  -  nel 
ne3  =  ne2  -  nsl 
else 

write (*,1011)  option 

stop  "Hie  allowed  values  for  option  are:  '  'LOON' '  or  '  'DOOR' ' . ' 
endif 

if ((nsl. It. -128) .or. (nsl. gt. 128) )  then 
write(*,1010)  'nsl  =  ',  nsl 

stop  'The  allowed  values  for  nsl  are:  -128  <=  nsl  <=  128. ' 
elseif ( (ns2.lt. -128) .or. (ns2.gt.128) )  then 
write(*,1010)  'ns2  =  ',  ns2 

stop  'The  allowed  values  for  ns2  are:  -128  <=  ns2  <=  128. ' 
endif 


onnn 

*333 


if  ((nel.lt. -128)  .or.  (nel. gt. 128) )  then  , 

write(*,1010)  'nel  =  nel  j 

step  'The  allowed  values  for  nel  are:  -128  <=  nel  <=  128. '  i 

elseif ((ne2.lt. -128) .or. (ne2.gt.128) )  then  ! 

write(*,1010)  'ne2  =  ' ,  ne2  , 

stop  'The  allowed  values  for  ne2  are:  -128  <=  ne2  <=  128. '  j 

endif  j 

if (nel.lt.nsl)  then 

write (*,1120)  'nsl  =  nsl,  'nel  =  ',  nel  ' 

stop  'The  value  nel  roust  be  greater  than  or  equal  to  nsl. '  . 

endif 

if (ne2.lt. ns2)  then 

write (*,1120)  'ns2  =  ',  ns2,  'ne2  =  ',  ne2 
stop  'The  value  ne2  roust  be  greater  than  or  equal  to  ns2. ' 
endif  I 


if ( (dsrcel.eq. 'f ') .or. (dsrcel.eq. 'F') )  then 
dsreel  =  'F' 

elseif  ( (dsrcel.eq.  's')  .or.  (dsrcel.eq.  'S') )  then 
dsreel  =  'S' 
else 

write (*,1009)  'dsreel  =  ' ,  dsreel 

step  'The  allowed  values  for  dsreel  are:  "F"  or  '  'S" . ' 
endif 

if  ( (dsrce2.eq. ' f ' )  .or.  (dsrce2.eq.  'F') )  then 
dsrce2  =  'F' 

elseif ( (dsrce2.eq.  's') .or. (dsrce2.eq. 'S'))  then 
dsrce2  =  'S' 
else 

write (*, 1009)  'dsrce2  =  dsrce2 

stop  'The  allowed  values  for  dsrce2  are:  "F"  or  '  'S' ' . ' 
endif 


C  DEFINE  CONSTANTS  AC00RDING  TO  THE  FOLLOWING  SCHEME: 

=  THE  NUMBER  OF  SAMPLES  IN  THE  SEQUENCE  xnl() . 

=  THE  NUMBER  OF  SAMPLES  IN  THE  SEQUENCE  xn2()  . 

=  THE  NUMBER  OF  SAMPIES  IN  THE  0UTEUT  SEQUENCE. 

=  A  DUMMY  VARIABLE  USED  FOR  WRITING  THE  OUTPUT  TO  THE  MONITOR. 

C  nuroplts  =  A  CONTROL  PARAMETER  FOR  THE  DATA  STORED  IN  'C0NC0R.DAT' . 

N1  =  nel  -  nsl  +  l 
N2  =  ne2  -  ns2  +  1 
N3  =  ne3  -  ns3  +  1 
k  =  8 

nuroplts  =  3 
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C  FOR  dsrce#  =  'F'  READ  INEUT  DATA  FRCM  THE  DATA  FUE. 

C  FOR  dsrce#  =  'S'  CALL  sanpl#  TO  GENERATE  THE  INPUT  DATA, 
C  THE  INPUT  DATA  IS  STORED  IN  THE  ARRAYS  xnl() ,  xn2()  . 

if  (dsrcel.eq.  'F')  then 
nead(l,1002)  (xnl(i) ,i=nsl,nel) 
else 

call  sampll(nsl,nel,xnl) 
endif 

if  (dsrce2.eq.  *F* )  then 
read(l,1002)  (xn2(i)  ,i=ns2,ne2) 
else 

call  sampl2(ns2,ne2,xn2) 
endif 


C  FOR  TEST  MODE  ECHO  INPUT  DATA  ONTO  MONITOR  (UNIT  -  *)  . 

if  (mode.eq.  'Y')  then 
write (*,1016)  infile 
if  ((Nl.lt. 8)  .or.  (N2.lt:. 8) )  k=min(Nl,N2) 
write(*,1017)  'nsl  =  '  ,nsl,  'nel  =  ' ,nel,  'dsrcel  =  1 
write (*,1017)  'ns2  =  ' ,ns2,  'ne2  =  * ,ne2,  'dsrce2  =  ' 
write(*,1018)  option 
write  (*,,1012)  k 
write  (*,1013) 
indxl  *  nsl 
indx2  *  ns2 
do  3  i=0,  k-1 

write(*,1020)  indxl,  xnl (indxl) ,  indx2,  xn2(indx2) 
indxl  =  indxl+l 
indx2  =  indx2+l 
3  continue 

endif 

C  WRITE  THE  INPUT  SEQUENCES  INTO  FILE:  OONOOR.DAT. 

write (3, 2000)  nunplts 
write (3, 2001)  N1 

write (3,*)  'INPUT  SEQUENCE  xnl (n) ' 
write(3,*)  'SAMPLE  #  (n) ' 
write(3,*)  'xnl(n) ' 
do  55  rt=nsl,  nel 
nn  =  n 

write(3,2010)  nn,  xnl(n) 
continue 

write (3, 2001)  N2 

write (3,*)  'INEUT  SEQUENCE  xn2(n)  ' 
write(3,*)  'SAMPLE  #  (n) ' 
write(3,*)  'xn2(n)' 


dsrcel 

dsrce2 


55 


56 


do  56  n=ns2,  ne2 
nn  =  n 

write(3,2010)  nn,  xn2(n) 
continue 

C  WRITE  INPUT  DATA  INTO  FHE:  OONOCR.OUT. 
write (2, 1016)  infile 

write (2, 1017)  'nsl  =  ' ,nsl,  'nel  =  ' ,nel,  'dsrcel  =  ' ,dsrcel 
write(2,1017)  'ns2  =  ' ,ns2,  'ne2  =  ' ,ne2,  'dsrce2  =  ' ,dsrce2 
write (2, 1018)  option 
write  (2, 1025)  1  INPUT' 
write(2,1015)  'n',  'xnl(n) ' 
do  4  n=nsl,  nel 
write(2,1026)  n,  xnl(n) 

4  continue 

write(2,1015)  'n'y  'xn2(n)‘ 
do  5  n=ns2,  ne2 
write(2,1026)  n,  xn2(n) 

5  continue 

C  IF  option  =  'LOON'  CALL  convol  TO  FERPOPM  CONVOLUTION  OOMRJIA1TQN. 

if  (option,  eq.  'LOON')  then 
call  convol (nsl ,Nl,ns2,N2,ns3,ne3,xnl,xn2,yn) 

C  IF  option  =  'DOOR'  CALL  cornel  TO  PERFORM  ODRREIATION  (XMHJTATIQN. 

else 

call  correl (nsl , nel , ns2 , ne2 , ns3 , ne3 ,  xnl , xn2 ,  R) 
endif 

C  WRITE  RESULTS  INTO  FILE:  OONOOR.DAT. 

write (3 ,2001)  N3 
write (3, 2003)  title 
write (3, 2004)  xlabl 
write (3, 2005)  ylabl 
do  57  n=ns3,  ne3 
nn  =  n 

if  (opt  ion.  eq. 'LOON')  then 
write(3,2010)  nn,  yn(n) 
else 

write(3,2010)  nn,  R(n) 
endif 
continue 


57 


C  WRITE  RESULTS  INTO  FILE:  OONCOR.OUT. 

if (option. eq. 'ICON')  then 
write(2,1025)  'OUTPUT' 
write  ( 2 , 1015)  '  n ' ,  ylabl 
do  9  n=ns3,  ne3 

write(2,1026)  n,  yn(n) 

9  continue 

else 

write(2,1025)  'OUTPUT' 
write(2,1015)  'p' ,  ylabl 
do  11  p=ns3,  ne3 

write(2,1026)  p,  R(p) 

11  continue 

endif 

write (*,1019) 

999  close  (unitKL) 
close  (unit=2) 
close (unit=3) 

if (ierr.gt.O)  then 
write (*,1116)  infile,  ierr 
endif 

C  ********  INPUT  FORMAT  ******** 

1000  format (a4) 

1001  format(i4,tll,i4,t21,al) 

1002  format(flO.O) 

c  ******************************** 

1009  format(lx,alO,al, '  Error,  value  not  allowed. 1 ) 

1010  format (Ix,a6,i4,2x, 'Error,  value  not  allowed. 1 ) 

1011  format  (lx, 'option  =  '  ,a4,2x,  'Error,  illegal  value  for  option.') 

1012  Oformat(/,  '  THE  FIRST  '  ,il, '  VALUES  OF  INPUT  DATA  ARE  LISTED  ' , 
1/,  '  BELOW,  VERITY  THAT  THE  DATA  IS  CORRECT.  ' ,/) 

1013  format (t7,  'n'  ,tl2,  'xnl() '  ,t28,  'n'  ,t33,  'xn2  () ' ) 

1015  format  (/,t7,al,tl4,a6,/) 

1016  format (///, '  INPUT  DATA  SOURCEFILE:  ',al2) 

1017  format ( lx , a6 , i4 , 3x , a6 , i4 , 3x , a9 , al ) 

1018  format ( lx , ' option  =  ',a4) 

1019  Oformat(//, '  TABULAR  CUTEUT  DATA  IS  STORED  IN  FILE:  OONOOR.OUT. ' , 
1/,  '  PLOTTING  DATA  IS  STORED  IN  FILE:  C0NC0R.DAT.  ' ) 

1020  format (t4 , i4 , tlO,elO . 4 , t25 , i4 , t31, elO . 4) 

1025  format (/// , t7 , a6 , '  DATA',/) 

1026  format  (t4 ,  i4 ,  tl2 ,  el2 . 6) 

1115  Oformat(lx,  «D0  YOU  WISH  TO  RUN  THIS  PROGRAM  IN  TEST' , 

1'  MODE  ?  (Y/N)  <CR>  :  ' , \, ) 


*»»  ,11  ,»>■*»  ^ 


«<»  »»>“  ». 


1119 

1120 
2000 
2001 

2003 

2004 

2005 
2010 


Ofonnat (/// , lx,  'ERROR  OPENING  INPUT  FIDE:  ',al2,/,lx,  'PROGRAM' , 
1*  TERMINATED.  * ,//, lx,  'ERROR  CODE: ' , i4, /////) 
format  (al) 

Of ormat  (/////,  lx,  'TYPE  THE  NAME  OF  YOUR  DATA  FILE  FOLLOWED' , 

1'  BY  <CR>. ' ,/, '  IF  YOU  DESIRE  TO  MAKE  A  TEST  FUN  USING  THE' , 

2'  SAMPLE  DATA  ALREADY  STORED' ,/,  '  IN  THE  FILE:  OONGOR.TST' , 

3'  TYPE:  OONOOR.TST  CCR^,/,  '  FILENAME:  ',\,) 

format (al2) 

format(2x,a6,i4,5x,a6,i4,5x, 'Error. ') 

format (il) 

format (i3) 

format  (20.8) 

format  (202) 

format (a5) 

format (el2 . 6 , 2x, el2 . 6) 


SUBROUTINE:  convol 


C  PURPOSE:  THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  ARRAYS  xnl()  and 
C  xn2()  ,  COMPUTES  THE  LINEAR  CONVOLUTION  OF  THE  ARRAYS, 
C  AND  RETURNS  THE  RESULTING  SEQUENCE  IN  THE  ARRAY  yn()  . 


subroutine  convol (nsl,Nl,ns2,N2,ns3,ne3,xnl,xn2,yn) 
real  xnl(~128:128) ,  xn2(-128:128) ,  yn(-256:256) 

j  =  0 

do  10  n=ns3,  ne3 
yn(n)  =0.0 
do  20  i=j ,  0,  -1 

if ((j-i.lt.N2) .and. (i.lt.Nl) )  then 
yn(n)  =  yn(n)  +  xn2(ns2+j-i)*xnl(nsl+i) 
endif 
continue 

j  =  j  +  1 

continue 

return 

end 


c 


SUBROUTINE:  correl 


C  PURPOSE:  THIS  SUBROUTINE  ACCEPTS  AS  INPUT  THE  ARRAYS  xnl()  AND 

C  xn2() ,  AND  CCMEUTES  THE  LINEAR  CORRELATION  OF  THE  ARRAYS 

C  BY  THE  POEMUIA  R(p)  =  SUM[xnl  (n)  *xn2  (n+p)  ]  FOR 

C  ns3  <=  p  <=  ne3. 


subroutine  correl (nsl,nel,ns2,ne2,ns3,ne3,xnl,xn2,R) 
real  xnl(-128:128) ,  xn2(-128:128) ,  R(-256:256) 
integer  p 

j  *  0 

do  30  p=ns3,  ne3 
R(p)  =0.0 
do  40  i=j,  0,  -1 
index!  =  nel-j+i 
index2  =  ns2+i 

if ( (indexl.ge.nsl) .and. (index2.le.ne2) )  then 
R(p)  =  R(p)  +  xnl(indexl)*xn2(index2) 
endif 

40  continue 

j  =  j  +  1 

30  continue 

return 

end 


C  SUBROUTINE:  saitpll 


C  PURPOSE:  THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  SAMPLES 
C  OF  A  CONTINUOUS  FUNCTION  AND  STORE  THEM  IN  THE  ARRAY 

C  xnl() .  IF  dsrcel  =  'S'  THEN  THE  MAIN  PROGRAM  WILL  CALL 

C  THIS  SUBROUTINE  TO  GENERATE  THE  VALUES  FOR  xnl() . 

C  IF  dsrcel  DOES  NOT  EQUAL  'S'  THEN  THIS  SUBROUTINE  WILL 

C  NOT  BE  CALLED  BY  THE  MAIN  PROGRAM. 


subroutine  saxrpll (nsl,nel,xnl) 
real  xnl(-128: 128) 

C*  ******  ******** ****************************************** ************** 

C  DEVELOP  THE  SAMPLING  ALGORITHM  FOR  xnl()  IN  THIS  SPACE.  THE 
C  STATEMENTS  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  RUIES  AND 
C  MAY  USE  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  SIN()  ,00S() . . . 

C  AN  EXAMPLE  OF  AN  ALGORITHM  GENERATING  VALUES  FOR  xnl()  IS  SHOWN. 


c  ***  EXAMPLE  *** 

C 

C  do  6  n=nsl,  nel 

C  xnl(n)  =  l.o  > 

C  6  continue  ^ 

> 

Q-k  ******  ****************************************************************  j 


return 

end 


C  SUBROUTINE:  sampl2 


C  PURPOSE:  THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  SAMPLES 
C  OF  A  CONTINUOUS  FUNCTION  AND  STORE  THEM  IN  THE  ARRAY 

C  xn2()  .  IF  dsrce2  =  'S'  THEN  THE  MAIN  PROGRAM  WILL  CALL 

C  THIS  SUBROUTINE  TO  GENERATE  THE  VALDES  FOR  xn2  ( )  . 

C  IF  dsrce2  DOES  NOT  EQUAL  'S'  THEN  THIS  SUBROUTINE  WILL 

C  NOT  BE  CAT  .TFT)  BY  THE  MAIN  PROGRAM.  j 

S 

t 

subroutine  sanpl2(ns2,ne2,xn2)  i 

real  xn2 (-128:128)  | 

c***  ****** **************************************************************  | 

C  DEVELOP  THE  SAMPLING  ALGORITHM  FOR  xn2()  IN  THIS  SPACE.  THE  j 

C  STATEMENTS  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  R3UIES  AND  f 

C  MAY  USE  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  SIN()  ,COS()  . . .  j 

C  AN  EXAMPLE  OF  AN  ALGORITHM  GENERATING  VALUES  FOR  xn2()  IS  SHOWN. 

C 

C  ***  EXAMPLE  *** 

C 

C  do  7  n=ns2,  ne2 

C  xn2(n)  =  n  +  l.o 

C  7  continue 

fi 

c***********************************************************************  [ 


return 

end 


oonoononooooooooooooonooooooooooooor) 


VERSION:  2/03/88 


DIFFEQ.POR 


PURPOSE:  HUS  PROGRAM  COMPUTES  THE  irERATIVE  SOLUTION  TO  A 
LINEAR,  TTME-INVARIAMT  (LTI)  DIFFERENCE  EQUATION. 

THE  DIFFERENCE  EQUATICN  MUST  BE  IN  THE  FORM: 
y(ns)  =  a(l)*y(ns-l)  +  ...  +  a(N)*y(ns-N)  + 

b(0)*x(ns)  +  b(l)*x(ns-l)  +  ...  +  b(L)*x(ns-L) . 
THE  PROGRAM  CONSISTS  OF  A  MAIN  PROGRAM  AND  TWO 
SUBROUTINES.  SUBROUTINE  diffeq  IS  CALLED  BY  THE  MAIN 
PROGRAM  TO  ITERATIVELY  SOLVE  THE  DIFFERENCE  EQUATIONS  AND 
SUBROUTINE  xgen  ALLOWS  THE  USER  THE  OPTION  OF  GENERATING 
THE  INPUT  SEQUENCE  x()  BY  WRITING  THE  APPROPRIATE 
EQUATIONS.  IF  THE  USER  ELECTS  TO  GENERATE  THE  SEQUENCE 
X()  BY  USING  xgen  THEN  THE  PROGRAM  MUST  BE  COMPILED 
AGAIN  BEFORE  EXECUTION.  THE  USER  HAS  THE  OPTION  OF 
SELECTING  ONE  OF  TWO  OPERATING  MODES:  BATCH  OR  TEST. 

IN  BATCH  MODE  THE  AMOUNT  OF  INTERFACE  WITH  THE  USER 
IS  MINIMIZED  AND  IT  IS  ASSUMED  THAT  THE  INPUT  DATA 
HAS  BEEN  STORED  IN  THE  DEFAULT  FILE  'DIFFEQ. IN' .  IN 
TEST  MOLE  THE  USER  IS  PROMPTED  FOR  THE  NAME  OF  THE 
INPUT  FILE  CR  HAS  THE  OPTION  OF  PERFORMING  A  TEST  RUN 
USING  THE  INPUT  DATA  STORED  IN  THE  FTIE  'DIFFEQ. 1ST' . 

IT  IS  REOCMMENDED  THAT  FIRST-TIME  USERS  SELECT  THE 
TEST  MODE  AND  MAKE  A  TRIAL  RUN  WITH  THE  PRESTORED 
INPUT  DATA.  THE  TEST  MODE  ECHOES  PORTIONS  OF  THE 
INPUT  DATA  ONTO  THE  MONITOR  TO  ALLOW  VERIFICATION  OF 
ITS  ACCURACY.  BOTH  BATCH  AND  TEST  MODES  ALLOW  THE 
USER  TO  SOLVE  UP  TO  FOUR  DIFFERENCE  EQUATIONS  IN  A 
SINGLE  PROGRAM  EXECUTION.  THE  OUTPUT  OF  THE  PROGRAM 
'DIFFEQ.POR'  IS  STORED  IN  THE  ARRAY  y() .  THE  OUTPUT  IS 
STORED  IN  TABULAR  FORM  IN  THE  OUTPUT  FILE  'DIFFEQ. FOR' 

AND  IN  A  FORM  SUITABLE  FOR  PLOTTING  IN  THE  FTIE 
'DLFFEQ.DAT'. 


C******************************  INPUT  ******************************** 


C 

C 

C  THIS  PROGRAM  ASSUMES  THAT  EACH  DIFFERENCE  EQUATION  IS  IN  THE 
C  CANONICAL  FORM: 

C 

C  y(ns)  =  a(l)*y(ns-l)  +  ...  +  a(N)*y(ns-N)  + 

C  b(0)*x(ns)  +  b(l)*x(ns-l)  +  ...  +  b(L)*x(ns-L) 

C 

C  L  =  A  NON-NEGATIVE  INTEGER,  THE  NUMBER  OF  INPUT  DELAYS. 

C  N  =  A  NCN-NEGATTVE  INTEGER,  THE  NUMBER  OF  OUTPUT  DELAYS. 

C 

C  a(l) . .  .a(N)  =  REAL  COEFFICIENTS  OF  THE  OUTPUT  TERMS. 

C  b(0) . .  .b(L)  =  REAL  COEFFICIENTS  OF  THE  INPUT  TERMS. 

C 


C  THE  INPUT  PARAMETERS  SHOUID  BE  STORED  IN  A  FILE  NAMED 
C  ,DIFFEQ.IN, .  ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS  PROGRAM 
C  REQUIRE  FORMATTED  INPUT.  PARTICULAR  ATTENTION  SHOUID  BE  PAID 
C  TO  THE  FORMATS,  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT  TO 
C  DENOTE  'REAL'  NUMBERS.  THE  INPUT  PARAMETERS  REQUIRED  BY  THE 


c 

PROGRAM  ARE  LISTED  BELOW. 

V- 

c 

c 

n 

NAME 

TYPE 

RANGE 

(ARRAYS) 

RESTRICTIONS 

c 

numsys 

INTEGER 

1 

<=  numsys  <=  4 

c 

L 

INTEGER 

0  <=  L  <=  128 

c 

N 

INTEGER 

0  <=  N  <=  128 

c 

nstop 

INTEGER 

0 

<=  nstop  <=  300 

c 

xsorce 

CHARACTER 

'F'  OR  'S' 

c 

b(k) 

REAL 

0,1, 

. . . ,  L 

0  <=  L  <=  128 

c 

a(k) 

REAL 

1,2, 

...,  N 

0  <-  N  <=  128 

c 

Y(k) 

REAL 

-N,  . 

..,  -1 

1  <=  N  <=  128 

c 

c 

x(ns) 

REAL 

0,1,  . . 

. ,  nstop 

0 

<=  nstop  <=  300 

c 

WHERE: 

C 

C  numsys  =  THE  NUMBER  OF  SYSTEMS  TO  BE  EVALUATED. 

C  THIS  INTEGER  VALUE  MUST  OCCUR  AT  THE  TOP  OF  THE  INPUT 

C  FILE.  IT  DELINEATES  THE  NUMBER  OF  SYSTEMS  TO  BE  READ  BY 

C  THE  PROGRAM  AND  ANALYZED.  FOR  EACH  SYSTEM  (1. .  .numsys) 

C  THE  PARAMETERS  BELOW  MUST  APPEAR  IN  THE  INPUT  FUE. 

C 

C  L  =  AN  INTEGER  VAHJE  THAT  SPECIFIES  THE  MAXIMUM  NUMBER  OF  DELAYS 
C  IN  THE  INPUT  SEQUENCE. 

C 

C  N  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  MAXIMUM  NUMBER  OF  DELAYS 
C  IN  THE  OUTPUT  SEQUENCE. 

C 

C  nstop  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  LARGEST  TIME  INDEX 
C  (ns)  FOR  WHICH  THE  DIFFERENCE  EQUATION  IS  TO  BE  SOLVED. 

C 

C  xsorce  =  A  CHARACTER  VALUE  OF  'F'  OR  'S’  DENOTING  WHETHER  THE 
C  INPUT  SEQUENCE  x()  IS  TO  BE  READ  FRCM  THE  INPUT  FILE  (F) 

C  OR  TO  BE  GENERATED  (S)  USING  THE  SUBROUTINE  xgen.  THIS 

C  LATER  OPTION  IS  ATTRACTIVE  WHEN  nstop  IS  A  LARGE  NUMBER 

C  AND  THE  INPUT  SEQUENCE  x()  CAN  BE  READILY  DESCRIBED  BY  AN 

C  ANALYTICAL  EXPRESSION.  IF  xsorce  =  'S'  THE  USER  MUST 

C  PROVIDE  THE  APPROPRIATE  FORTRAN  STATEMENTS  IN  THE  SPACE 

C  PROVIDED  IN  SUBROUTINE  xgen  AND  THE  PROGRAM  MUST  HE 

C  RECOMPILED  BEFORE  EXECUTION. 

C 

C  b(k)  =  REAL  COEFFICIENTS  OF  THE  INPUT  SEQUENCE  x(ns-k)  IN  THE 
C  ORDER:  b(0) ,  b(l) ,  ...,  b(L) . 

C 


C  a(k)  =  REAL  COEFFICIENTS  OF  THE  OUTPUT  SEQUENCE  y(ns-k)  IN  THE 
C  ORDER:  a(l) ,  a(2) ,  . . . ,  a(N) .  IF  N  =  0  THEN  THE  EQUATION 

C  IS  NON-RECURSIVE  AND  NO  a(k)  COEFFICIENTS  SHOULD  BE  IN 

C  THE  INPUT  FILE. 

C 

C  y(k)  =  THE  INITIAL  CONDITIONS  FOR  THE  OUTPUT  SEQUENCE  IF  THE 
C  DIFFERENCE  EQUATION  IS  RECURSIVE,  I.E.,  N  >  0.  THIS 

C  PROGRAM  CALCUIATES  THE  SOLUTION  TO  THE  DIFFERENCE 

C  EQUATION  FRCM  ns  =  0  TO  ns  =  nstop  THEREFORE  THE  INITIAL 

C  CONDITIONS  y (— N)  TO  y(-l)  MUST  BE  PROVIDED  IN  THE  INPUT 

C  FILE  IN  THE  ORDER:  y  (-N)  ,  y(-N+l) ,  . . . ,  y(-l)  .  IF  N  =  0 

C  THEN  THE  EQUATION  IS  NON-RECURSIVE  AND  NO  INITIAL 

C  CONDITIONS  SHOULD  BE  GIVEN  IN  THE  INPUT  FILE. 

C 

C  x(ns)  =  THE  INPUT  SEQUENCE.  IF  xsorce  =  'F1  THEN  THE  INPUT 
C  SEQUENCE  x(0) ,  ...,  X (nstop)  MUST  BE  PROVIDED  BY  THE  USER 

C  IN  THE  INPUT  FILE.  IF  xsorce  =  'S'  THEN  THE  USER  HAS 

C  ELECTED  TO  GENERATE  THE  INPUT  SEQUENCE  BY  PROVIDING  THE 

C  APPROPRIATE  FORTRAN  STATEMENTS  IN  THE  SUBROUTINE  xgen. 

C 

C  NOTE:  THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN  PROGRAM 
C  FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********. 

C  THE  FORM  OF  THE  INPUT  DATA  FILE  IS: 

C 

C  LINE  #  ENTRIES  FORMAT 

C  _ 

C  1 
C  2 

C  NEXT  NB  LINES 
C  NEXT  NA  LINES 
C  NEXT  NY  LINES 
C  NEXT  NX  LINES 
C 

C  WHERE:  NB  =  1  +  (1/6  ROUNDED  DOWN  TO  THE  NEXT  SMALLER  INTEGER) 

C 

C  NA  =  0  IF  N  =  0  OR 

C  NA  =  1  +  ( (N-l)/6  ROUNDED  DOWN  TO  THE  NEXT  SMALLER  INTEGER) 

C 

C  NY  =  0  IF  N  =  0  OR 

C  NY  =  1  +  ( (N-l)/6  ROUNDED  DOWN  TO  THE  NEXT  SMALLER  INTEGER) 

C 

C  NX  =  0  IF  xsorce  =  'S'  OR 

C  NX  =  1  +  (nstop/ 6  ROUNDED  DOWN  TO  THE  NEXT  SMALLER  INTEGER) 

C  IF  xsorce  =  'F' 

c 

C  *NCTE:  FOR  numsys  >  1  THE  FORMAT  OF  LINES  2. . .  IS  REPEATED. 

C 

C  THE  FORMAT  flO.O  USED  FOR  INPUT  DATA  PERMITS  THE  DECIMAL 

C  POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  10  COLUMNS 

C  AND  ALSO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE  USED  (EG. 

C  3146.2  =  3. 1462E+0?) . 

C 


numsys 

L, N , nstop , xsorce 
b(k) ,  k=0,l,...,L 
a(k) ,  k=l, . . . ,N 
y(k) ,  k=  -N, . . .  ,-l 
x(ns) ,  ns=  0,..., nstop 


il 

i3,tll,i3,t21,i3,t31,al 
6f 10 . 0 
6fl0.0 
6fl0.0 
6fl0.0 


c 

C******************************  OUTPUT  ****************************** 

C 

C 

C  THE  INPUT  DATA  AS  WELL  AS  THE  OUTEUT  DATA  ARE  STORED  IN  TABULAR 
C  POIW  IN  THE  FIIE  'DIFFEQ.OUT' .  ADDITIONALLY,  THE  INPUT  SEQUENCE 
C  AND  THE  OUTEUT  SEQUENCE  ARE  WRITTEN  INTO  THE  FILE  'DIFFEQ.DAT'  TO 
C  FACILITATE  PLOTTING  BY  A  SEPARATE,  USER  SUPPLIED  FROGRAM.  THE 
C  FORMAT  OF  THE  DATA  IN  'DIFFEQ.DAT'  IS:  el2.6,  2X,  el2.6.  THE  FIRST 
C  ENTRY  CORRESPONDS  TO  THE  ORDINATE  VALUE,  AND  THE  SECOND  ENTRY,  THE 
C  ABSCISSA  VALUE.  ADDITIONAL  HEALER  INFORMATION  IS  WRITTEN  INTO 
C  'DIFFEQ.DAT'  TO  ALLOW  FOR  CONTROL  AND  LABELING  OF  EACH  PLOT. 

C 

C 

C******************************  EXAMPLE  ****************************** 

C 

C 

C  THE  INFUT  PARAMETERS  FOR  THE  SYSTEM  DESCRIBED  BELOW  ARE  STORED  IN 
C  THE  SAMPLE  INPUT  FIIE  'DIFFEQ.TST'  AND  CAN  BE  USED  FOR  A  TRIAL 
C  RUN  IN  TEST  MODE. 

C 

C  DIFFERENCE  EQUATION: 

C 

C  y(ns)  =  1.2*y(ns-l)  +  1.5*x(ns) 

C 

C  GOAL:  TO  OBTAIN  THE  SOLUTION  TO  THIS  DIFFERENCE  EQUATION  FOR 

C  ns  =  0  TO  ns  =  10,  GIVEN:  x(0)...x(10)  =  100.0  AND 

C  THE  INITIAL  CONDITION  y(-l)  =  25.0. 

C 

C 

C  THE  INPUT  FILE  IS: 

C 

C  1 

C  000  001  010  F 

C  1.5 

C  1.2 

C  25.0 

C  100.0  100.0  100.0  100.0  100.0  100.0 

C  100.0  100.0  100.0  100.0  100.0 

c 

c 

C  THE  RESULTING  OUTEUT  FIIE  'DIFFEQ.OUT'  IS: 

C 

C  INFUT  DATA  FOR  PROBLEM  #  1 

C 

C  PROBLEM  #  1  INFUT  DATA  SOURCEFILE:  DIFFEQ.TST 
C  THE  NUMBER  OF  INPUT  DELAYS:  L  =  0 

C  THE  NUMBER  OF  OUTFUT  DELAYS:  N  =  1 

C  THE  VALUE  OF  nstop  IS:  10 


C  THE  COEFFICIENTS  b(O)  f  b(l) ,  b(L)  ARE: 

C 

C  . 150000E+01 

C 

C 

C  THE  COEFFICIENTS  a(l) ,  a(N)  ARE: 

C 

C  . 120000E+01 

C 

C 

C  OUTPUT  DATA  FOR  PROBLEM  #  1 

C 


c 

ns 

x(ns) 

y(ns) 

c 

-1 

. OOOOOOE+OO 

. 250000E+02 

c 

0 

. 100000E+03 

. 180000E+03 

c 

1 

. 100000E+03 

. 366000E+03 

c 

2 

. 100000E+03 

. 589200E+03 

c 

3 

. 100000E+03 

•857040E+03 

c 

4 

. 100000E+03 

. 117845E+04 

c 

5 

. 100000E+03 

.156414E+04 

c 

6 

. 100000E+03 

.202697E+04 

c 

7 

. 100000E+03 

. 258236E+04 

c 

8 

.  100000E+03 

. 324883E+04 

c 

9 

. 100000E+03 

. 404860E+04 

c 

10 

. 100000E+03 

. 500832E+04 

C 

c  -  end  of  PROBLEM  #  1  - 

c 

c 

C  FOR  ILLUSTRATIVE  PURPOSES  THE  INPUT  SEQUENCE  x()  COULD  HAVE  BEEN 
C  GENERATED  BY  SPECIFYING  xsorce  =  'S'  AND  WRITING  THE  APPROPRIATE 
C  FORTRAN  STATEMENTS  INTO  SUBROUTINE  xgen.  THE  STATEMENTS  THAT 
C  COULD  BE  USED  TO  ACCOMPLISH  THIS  ARE  WRITTEN  INTO  THE  SUBROUTINE 
C  BUT  ARE  ' COMMENTED  OUT'. 

C 

C 

C***************************  MAIN  PROGRAM  **************************** 


character  infile*12,  mode*l,  xsorce*l 

real  a(l:128) ,  b(0:128),  y(-128:300),  x(-128:300),  ii 

C  PROMPT  USER  FOR  MODE:  BATCH  OR  TEST. 

write (*,1115) 
read(*,1117)  mode 

if((mode.eq.  * Y * )  .or.  (mode.eq.  *y * ) )  then 
mode  =  'Y' 
write (*,1118) 
read (*,1119)  infile 
else 


infile  =  'DIFFEQ.IN' 
endif 

C  UNIT=1  DEFINED  AS  INPUT  FILE.  UNITS=2,3  DEFINED  AS  OUTPUT  FILES 

open  (unit=l ,  filep=infile ,  status= '  old ' ,  iostat=ierr ,  err=999 ) 
open(unit=2 ,  fileF= '  DIFFEQ.CUT 1 ) 
open (unit=3, file=' DIFFEQ.DAT ' ) 

C  READ  INPUT  PARAMETERS  AND  CONDUCT  ERROR  CHECKS. 

read (1,1000)  numsys 

if ( (numsys. le.O) .or. (numsys. gt. 4) )  then 
write (*,1126)  numsys 

step  "Hie  allowed  values  for  numsys  are  1  <=  numsys  <=  4. ' 
endif 

nunplts  =  2*numsys 
write (3, 2000)  nunplts 

do  10  nprob=l,  numsys 

read(l,1001)  L,  N,  nstep,  xsorce 

if ( (L.lt.O) .or. (L.gt.128) )  then 
write(*,1124)  nprob,  'L' ,  L 

step  "Hie  allowed  values  for  '  'L' '  are:  0  <=  L  <=  128. 1 
endif 

if((N.lt.0)  .or.  (N.gt.128))  then 
write(*,1124)  nprob,  'N',  N 

step  "Hie  allowed  values  for  '  'N' '  are:  0  <=  N  <=  128. 1 
endif 

if  ( (nstep. It. 0)  .or.  (nstep. gt. 300) )  then 
write(*,1127)  nprob,  nstep 

step  "Hie  allowed  values  for  nstop  are:  0  <=  nstop  <=  300. ' 
endif 

if ( (xsorce. eq. 'F' ) .or. (xsorce. eq. *  f ' ) )  then 
xsorce  =  'F' 

elseif ( (xsorce. eq. 'S') .or. (xsorce. eq. 's'))  then 
xsorce  =  'S' 
else 

write (*,1128)  nprob,  xsorce 

stop  'The  allowed  values  for  ' 'xsorce' '  are:  ' ' F' '  or  ''S'', 
endif 

C  INITIALIZE  EACH  ARRAY  TO  ZERO  BEFORE  EACH  RUN. 

data  a/ 128*0.0/,  b/129*0.0/ 
data  y/429*0.0/,  x/429*0.0/ 


c  READ  THE  COEFFICIENTS  b() ,  a()  AND  THE  INITIAL  CONDITIONS 
C  y(-N)...y(-l). 


read(l,1002)  (b(k) ,  k=0,L)  1 

if(N.gt.O)  then 
icstart  =  -N 

read(l,1002)  (a(k) ,  k=l,N) 
read(l,1002)  (y(k) ,  k=icstart,-l) 
endif 

C  FOR  xsorce  =  'F'  READ  THE  ARRAY  X()  FROM  THE  INPUT  FILE. 

C  FOR  xsorce  =  'S'  CALL  xgen  TO  GENERATE  THE  ARRAY  x() . 

if  (xsorce.  eq. 'F')  then 
read(l,1002)  (x(k) ,  k=0,nstcp) 
else 

call  xgen(x,nstop, nprcb) 
endif 

C  FOR  TEST  MODE  ECHO  INPUT  PARAMETERS  ONTO  MONITOR  (UNIT  =  *)  . 

if  (mode.eq. 'Y')  then  j 

write (*,1007) 

write (*,1120)  nprcb,  infile 
write (*,1110)  'INPUT',  'L',  L 
write (*,1110)  'OUTPUT',  'N',  N 
write(*,1112)  nstcp 
write (*,1004) 

write (*,1005)  (b(k)  ,k=0,L) 
if(N.eq.O)  then 
write(*,1131) 
else 

write (*,1006) 

write (*,1005)  (a(k)  ,k=l,N) 
endif 

write (*,1123)  nprcb 

pause  'END  OF  RUN,  STRIKE  <CR>  WHEN  READY  TO  CONTINUE. ' 
endif 

C  WRITE  INPUT  DATA  INTO  FILE:  DIFFEQ.OUT. 

write(2,1008)  'INPUT',  nprcb 
write (2, 1120)  nprcb,  infile 
write (2, 1110)  'INPUT',  'L',  L 
write (2, 1110)  'OUTPUT',  'N',  N 
write (2, 1112)  nstop 
write (2, 1004) 

write(2,1005)  (b(k),k=0,L) 


I 


if(N.eq.O)  then 
write (2, 1131) 
else 

write (2, 1006) 

write (2, 1005)  (a(k)  ,3o=l,N) 
endif 

C  WRITE  THE  INEUT  SEQUENCE  INTO  FILE:  DIFFEQ.DAT. 

write(3,2001)  nstop  +  1 
write(3,*)  'INPUT  SEQUENCE  x(ns) ' 
write(3,*)  'SAMPLE  #  (ns)' 
write(3,*)  'x(ns) ' 
do  54  ns=0,  nstcp 
ii  =  ns 

write(3,2010)  ii,  x(ns) 

54  continue 

C  CALL  diffeq  TO  CTMPUTE  Uffi  SOLUTION  TO  THE  DIFFERENCE  EQUATION, 
call  diffeq(N,L,a,b,x,y, nstcp) 

C  WRITE  RESULTS  INTO  FILE:  DIFFEQ.DAT. 

write(3,2001)  N  +  nstcp  +  l 
write (3,*)  'OUTPUT  SEQUENCE  Y(ns)  • 
write(3,*)  'SAMPLE  #  (ns)' 
write(3,*)  'y (ns)' 
do  55  ns=  -N,  nstcp 
ii  =  ns 

write (3, 2010)  ii,  y(ns) 

55  continue 


C  WRITE  RESULTS  INTO  FILE:  DIFFEQ. CUT. 


write (2, 1008)  'OUTEUT',  nprob 
write (2, 1129) 
do  102  ns=  -N,  nstcp 

write(2,1130)  ns,  x(ns) ,  y(ns) 
102  continue 

write (2, 1123)  nprob 

10  continue 

write(*,1121) 

999  close (unit=l) 
close (unit=2) 
close (unit=3) 

if (ierr.gt.0)  then 
write (*,1116)  ierr 
endif 
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C********  INPUT  FORMAT  ******** 


1000  format (il) 

1001  format (i3, til, i3,t21,i3,t31,al) 

1002  format(6fl0.0) 

c******************************** 

1004  format  (t4,  'THE  COEFFICIENTS  b(0)  ,  b(l) ,  b(L)  ARE:',/) 

1005  format(6(lx,el2.6) ) 

1006  format  (// ,  t4 , 1  THE  COEFFICIENTS  a(l) ,  ...,  a(N)  ARE:',/) 

1007  format  (//////////) 

1008  format (///,tl6,a6, '  DATA  FOR  EROBLEM  #  ',il,//) 

1110  format(t4, 'THE  NUMBER  OF  ',a6,'  DEIAYS:  ',al, '  =  ',i3) 

1112  format (t4,  "IHE  VALUE  OF  nstop  IS:  *,i3) 

1115  0format(lX,  'DO  YOU  WISH  TO  RUN  THIS  PROGRAM  IN  TEST' , 

1'  MODE  ?  (Y/N)  <CR>  :  ',\,) 

1116  Oformat  (/// ,  lx,  'ERROR  OPENING  INFUT  FILE,  FROGRAM  TEPMINATED.  ' , 
l//,lx,  'ERROR  OODE:  '  ,i4, /////) 

1117  format (al) 

1118  Oformat (/////, lx,  'TYPE  THE  NAME  OF  YOUR  DATA  FILE  FOLLOWED' , 

1'  BY  <CR>.  • ,/,  •  IF  YOU  DESIRE  TO  MAKE  A  TEST  RUN  USING  THE' , 

2'  SAMPLE  DATA  ALREADY  STORED',/,  '  IN  IHE  FILE:  DIFFEQ.TST' , 

3  '  TYPE:  DIFFEQ.TST  <CR>',/,'  FILENAME:  *,\,) 

1119  format (al2) 

1120  format  (///,t4,  'PROBLEM  #  '  ,il, '  INFUT  DATA  SOURCEFILE:  ',al2) 

1121  Oformat (//, '  TABULAR  OUTPUT  DATA  IS  STORED  IN  FIIE:  DIFFEQ.OUT. ' 
1,/,  '  PLOTTING  DATA  IS  STORED  IN  FILE:  DIFFEQ.DAT.  ') 

1122  format (i3) 

1123  format(/,lx,16('-') , '  END  OF  PROBLEM  #• ,i2,2x,16( '-') ,//) 

1124  Oformat(//, '  For  problem  #',i2,'  the  value  for  ',al, '  is:  ',i3, 
1'.  This  value  is  not  allowed.') 

1126  format(//, '  numsys  =  ',i4,'.  This  value  is  not  allowed.') 

1127  Oformat(//, '  For  problem  #',i2,'  the  value  for  ''nstop1'  is:  ', 
li3, ' .  This  value  is  not  allowed. ' ) 

1128  Oformat(//, '  For  problem  #',i2,'  the  value  for  ' 'xsorce' '  is:  ', 
lal, ' .  This  value  is  not  allowed. ') 

1129  format(t6, 'ns' ,tl6, 'x(ns) ' ,t35, 'y(ns) ') 

1130  format (t4 , i4 , til , el4 . 6 , t30 , el4 . 6 ) 

1131  format (/, '  THIS  SYSTEM  IS  NON-RECURSIVE,  I.E.,  N  »  0.') 

2000  format (il) 

2001  format (i3) 

2010  format(el2.6,2x,el2.6) 

end 
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SUBROUTINE:  diffeq 


C  PURPOSE:  THIS  SUBROUTINE  CCMFUTES  THE  SOIOTIOJ  TO  A  DIFFERENCE 
C  EQUATION.  ALL  PARAMETERS  DESCRIBING  THE  EQUATION,  AND 

C  THE  INPUT  AND  OUTFUT  SEQUENCES  x()  AND  y()  ARE  PASSED 

C  TO  THE  SUBROUTINE  BY  THE  MAIN  FRQGRAM. 

subroutine  diffeq(N,L,a,b,x,y,nstop) 

real  x(-128:nstop) ,  y (-128: nstop) ,  a(l:N),  b(0:L) 

do  500  ns=0,  nstop 
y(ns)  =  0.0 
do  501  k=0,  max(N,L) 

y(ns)  =  y(ns)  +  a(k)*y(ns-k)  +  b(k)*x(ns-k) 

501  continue 
500  continue 

return 

end 


C  SUBROUTINE:  xgen 


C  PURPOSE:  THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  VALUES  FOR 
C  THE  ARRAY  x().  IF  XSOrce  =  'S'  THE  MAIN  PROGRAM  WILL 

C  CALL  THIS  SUBROUTINE.  IF  xsorce  =  'F'  THIS  SUBROUTINE 

C  WILL  NOT  BE  CALLED  BY  THE  MAIN  PROGRAM. 


subroutine  xgen (x, nstop, nprob) 
real  x(-128:nstop) 

C*  ******  **************************************************************** 

C  DEVELOP  THE  AIGORITHM  FOR  GENERATING  VALUES  OF  x()  IN  THIS  SPACE. 

C  THE  STATEMENTS  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77  RUIES  AND 
C  MAY  USE  FORTRAN  77  INTRINSIC  FUNCTIONS  SUCH  AS:  SINQ  ,  OOS(),  ... 

C  NOTE  THAT  THE  VALLE  nprob  CAN  BE  USED  IN  A  LOGICAL  'IF'  STATEMENT 
C  TO  MATCH  THE  GENERATING  FUNCTIONS  TO  THE  CORRESPONDING  SYSTEM 
C  EQUATION  READ  FROM  THE  INPUT  FILE  IF  MORE  THAN  ONE  SYSTEM  OF 
C  EQUATIONS  EXIST.  AN  EXAMPLE  OF  AN  ALGORITHM  GENERATING  VALUES 
C  FOR  x( )  IS: 


oooonn 


C***  EXAMPLE  *** 

if  (nprob.eq.l)  then 
do  1  k=0,  nstcp 
x(k)  »  100.0 
1  continue 
endif 

C***  ****** ************************************************************** 


return 

end 
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VERSION:  2/03/88 


STATEQ.FQR 


PURPOSE:  THIS  FRQGRAM  COMPUTES  THE  ITERATIVE  SOLUTION  TO  A  SET 
OF  LINEAR,  TTME-INVARIANT  STATE  EQUATIONS.  THE  FORM 
OF  THE  STATE  EQUATIONS  IS: 

v(ns+l)  =  Av(ns)  +  Bx(ns) 
y(ns)  =  Cv(ns)  +  Dx(ns) 

WHERE  A,  B,  C,  D  ARE  MATRICES  OF  THE  SYSTEM  CONSTANTS, 
v  IS  THE  STATE  VECTOR,  X  IS  THE  INPUT  VECTOR,  AND  y 
IS  THE  OUTPUT  VECTOR.  THE  PROGRAM  CONSISTS  OF  A  MAIN 
PROGRAM  AND  TWO  SUBROUTINES.  THE  SUBROUTINE  xgen  GIVES 
THE  USER  THE  OPTION  OF  GENERATING  THE  VECTOR  INPUT 
SEQUENCE  X()  BY  WRITING  THE  APPROPRIATE  EQUATIONS  IN  THE 
SPACE  ALLOCATED  IN  THIS  SUBROUTINE.  IF  THE  USER  CHOOSES 
TO  GENERATE  THE  INPUT  DATA  BY  USING  SUBROUTINE  xgen  THE 
EQUATIONS  MUST  BE  WRITTEN  INTO  THE  SUBROUTINE  USING 
STANDARD  FORTRAN  77  EXECUTABLE  STATEMENTS  AND  THE  VALUES 
GENERATED  MUST  BE  STORED  IN  THE  2-DIMENSIONAL  ARRAY 

XS()  .  THE  SUBROUTINE  itrate  COMPUTES  THE  STATE  OF  THE  1 

SYSTEM  v() ,  AS  WELL  AS  THE  OUTPUT  OF  THE  SYSTEM  y() ,  FOR 
EACH  VALUE  OF  ns  FROM  ns  =»  0  TO  ns  =  nstop.  THE  USER 
HAS  THE  OPTION  OF  SELECTING  ONE  OF  TWO  OPERATING  MODES: 

BATCH  OR  TEST.  IN  BATCH  MODE  THE  AMOUNT  OF  INTERFACE 
WITH  THE  USER  IS  MINIMIZED  AND  IT  IS  ASSUMED  THAT  THE 
INPUT  PARAMETERS  DESCRIBED  BELOW  HAVE  BEEN  STORED  IN 
THE  INPUT  FUE  'STATEQ.IN' .  IN  TEST  MODE  THE  USER  IS 
PROMPTED  FOR  THE  NAME  OF  THE  INPUT  FUE  AND  HAS  THE 
OPTION  OF  PERFORMING  A  TEST  FUN  USING  THE  DATA  STORED  IN 
IN  THE  FILE  'STATEQ.TST' .  IT  IS  RECCMffiNDED  THAT  FIRST- 
TIME  USERS  SELECT  TEST  MODE  AND  PERFORM  A  TRIAL  FUN 
WITH  THE  PRESTORED  DATA.  THE  TEST  MODE  ECHOES  PORTIONS 
OF  THE  INPUT  DATA  ONTO  THE  MONITOR  TO  ALLOW  VERIFICATION 
OF  ITS  ACCURACY.  THE  OUTPUT  OF  THE  PROGRAM  'STATEQ.POR' 

IS  STORED  IN  THE  2 -DIMENSIONAL  ARRAY  ys()  AND  THE  SYSTEM 
STATES  ARE  STORED  IN  THE  2-DIMENSIONAL  ARRAY  vs() .  THE 
INPUT  VALUES,  SYSTEM  STATES  AND  THE  OUTPUT  DATA  ARE 

STORED  IN  TABULAR  FOFM  IN  THE  FILE  'STATEQ.OUT'  AND  IN  A  J 

FORM  SUITABLE  FOR  PLOTTING  IN  THE  FUE  'STATEQ.DAT'  •  I 


******************************  INPUT  ********************************  I 

THIS  PROGRAM  ASSUMES  THAT  THE  STATE  EQUATIONS  ARE  IN  THE 
FORM  : 

[vl(ns+l) ]  [  all  ...  aNN]  [  vl(ns)  ]  [bll  ...  blM]  [xl(ns)]  ' 

[v2 (ns+1) ]  [  a21  ...  a2N]  [  v2(ns)  ]  [b21  ...  b2M]  [x2(ns) ]  J 
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C  [  ...  ]  =  [ . ]*[  ...  ]  +  C . ]*[  ...  ] 

C  [vN(ns+l) ]  [  aNl  ...  aNN]  [  vN(ns)  ]  [bNl  ...  fcNM]  [xM(ns) ] 

C 

c 

C 

C  [yl(ns) ]  [ell  ...  clN]  [vl(ns) ]  [dll  ...  dlM]  [xl(ns)] 

C  [y2 (ns) ]  [c21  ...  c2N]  [v2 (ns) ]  [d21  ...  d2M]  [x2(ns) ] 

C  [  ...  3  =  [ . ]*[  ...  3  +  [ . ]*[  ...  3 

C  [yQ(ns)  ]  [cQl  ...  cQN]  [vN(ns)  ]  [dQl  ...  dCM]  [xM(ns)  ] 

C 

C  N  IS  THE  NUMBER  OF  SYSTEM  STATES. 

C  M  IS  THE  NUMBER  OF  SYSTEM  INPUTS. 

C  Q  IS  THE  NUMBER  OF  SYSTEM  OUTPUTS. 

C 

C  X  IS  THE  M  X  1  INPUT  VECTOR. 

C  v  IS  THE  N  X  1  STATE  VECTOR. 

C  y  IS  THE  Q  x  1  OUTPUT  VECTOR. 

C  A  IS  AN  N  X  N  MATRIX  OF  CONSTANTS. 

C  B  IS  AN  N  X  M  MATRIX  OF  CONSTANTS. 

C  C  IS  A  Q  X  N  MATRIX  OF  CONSTANTS. 

C  D  IS  A  Q  X  M  MATRIX  OF  CONSTANTS. 

C 

C 

C  THE  SOLUTION  IS  GENERATED  IN  THE  INTERVAL  0  <=  ns  <=  nstcp.  THE 
C  USER  MUST  PROVIDE  THE  MATRICES  A,  B,  C,  D  AS  WELL  AS  THE  INITIAL 
C  VALUES  OF  THE  STATE  VECTOR  V  IN  THE  INPUT  FUE.  THESE  INPUTS,  AS 
C  WELL  AS  THE  PARAMETERS  DESCRIBED  BELOW,  SHOULD  BE  STORED  IN  THE 
C  INPUT  FIIE  'STATEQ. IN'.  ALL  OF  THE  READ  STATEMENTS  USED  BY  THIS 
C  PROGRAM  REQUIRE  FORMATTED  INPUT.  PAHTICUIAR  ATTENTION  SHOULD  BE 
C  PAID  TO  THESE  FORMATS,  ESPECIALLY  THE  USE  OF  THE  DECIMAL  POINT 
C  TO  DISTINGUISH  BETWEEN  'REAL'  AND  INTEGER  DATA. 

C 

C 

C 


c 

n 

NAME 

TYPE 

RANGE  (ARRAYS) 

RESTRICTIONS 

c 

N 

INTEGER 

0  <=  N  <=  10 

c 

M 

INTEGER 

0  <=  M  <=  4 

c 

Q 

INTEGER 

0  <=  Q  <=  4 

c 

nstcp 

INTEGER 

0  <=  nstcp  <=  99 

c 

xsorce 

CHARACTER 

»F*  OR  'S' 

c 

A(i,j) 

REAL 

i=l, . . .  ,N 

0  <=  N  <=  10 

c 

j— 1, • • •  ,N 

c 

B(i,j) 

REAL 

i=l, . . .  ,N 

0  <=  N  <=  10 

c 

3*1, • • *  fM 

0  <=  M  <=  4 

c 

C(i,j) 

REAL 

i=l, • * •  ,Q 

0  <=  Q  <=  4 

c 

j=l, ...,N 

0  <=  N  <=  10 

c 

D(i,j) 

REAL 

i=l, • • « *Q 

0  <=  Q  <=  4 

c 

j=l,...,M 

0  <=  M  <=  4 

c 

v(i) 

REAL 

i=l, . . .  ,N 

0  <=  N  <=  10 

c 

xs(i,j) 

REAL 

i=l, . . .  ,M 

0  <=  M  <=  4 

c 

j=0, . . . , nstcp 

0  <=  nstcp  <=  99 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


WHERE: 


N  =  AN  INTEGER  VAIUE  THAT  SPECIFIES  IHE  NUMBER  OF  SYSTEM  STATES, 
I.E. ,  THE  ORDER  OF  THE  SYSTEM. 


M  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  NUMBER  OF  SYSTEM  INPUTS. 

Q  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  NUMBER  OF  SYSTEM  OUTPUTS. 

nstop  =  AN  INTEGER  VALUE  THAT  SPECIFIES  THE  LARGEST  TIME  INDEX 
(ns)  FOR  WHICH  THE  STATE  EQUATIONS  ARE  TO  BE  SOLVED. 


xsorce  =  A  CHARACTER  VALUE  OF  'F'  OR  'S'  DENOTING  WHETHER  THE  INPUT 
SEQUENCE (S)  XS(i,j)  ARE  TO  BE  READ  FRCM  THE  INPUT  FTIE  (F) 
OR  TO  BE  GENERATED  (S)  USING  THE  SUBROUTINE  xgen.  THIS 
IATTER  OPTION  IS  ATTRACTIVE  WHEN  nstop  IS  A  LARGE  NUMBER 
AND  THE  INPUT  SEQUENCE(S)  XS(i,j)  CAN  BE  READILY  DESCRIBED 
BY  ANALYTICAL  EXPRESSIONS.  IF  xsorce  =  'F'  THE  VALUES  OF 
xs(i,j),  i=l, . . .  ,M  ;  j=0, . . . , nstop  ARE  READ  FRCM  THE 
INPUT  FILE.  IF  xsorce  =  'S'  THEN  THE  USER  HAS  ELECTED 
TO  GENERATE  THE  INPUT  SEQUENCE (S)  XS(1,  j) , . . .  ,XS(M,  j)  BY 
WRITING  THE  APPROPRIATE  FORTRAN  STATEMENTS  IN  THE  SUB¬ 
ROUTINE  xgen.  IF  THIS  METHOD  OF  INPUT  DATA  GENERATION 
IS  SELECTED  NO  VALUES  OF  THE  INPUT  SEQUENCE  SHOULD  APPEAR 
IN  THE  INPUT  FTIE  AND  THE  PROGRAM  MUST  BE  RECOMPILED 
BEFORE  EXECUTION. 

A(i,  j)  -  AN  N  x  N  MATRIX  OF  REAL  NUMBERS. 

B(i,  j)  «=  AN  N  X  M  MATRIX  OF  REAL  NUMBERS. 

C(i,  j)  =  A  Q  X  N  MATRIX  OF  REAL  NUMBERS. 

D(i,  j)  -  A  Q  X  M  MATRIX  OF  REAL  NUMBERS. 

v(i)  =  THE  N  X  1  INITIAL  CONDITION  VECTOR  OF  THE  SYSTEM  STATES. 

THE  USER  MUST  PROVIDE  THE  VALUES  OF  THE  STATES  FOR  ns=0, 

I.E. ,  V(l) , . . .  ,V(N) .  THESE  VALUES  ARE  THE  INITIAL 
CONDITIONS  OF  THE  SYSTEM. 


XS(i,  j)  =  AN  M  X  (nstop+1)  MATRIX  OF  REAL  NUMBERS.  THE  SEQUENCE(S) 
xs(l,ns) , . . .  ,xs(M,ns)  ARE  THE  INPUTS  TO  THE  SYSTEM  AT 
SAMPLE  ns. 


NOTE:  THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN  PROGRAM 

FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********. 
THE  FORM  OF  THE  INPUT  DATA  FILE  IS: 
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ENTRIES 


FORMAT 


NOTES 


LINE  # 

1 

2 


N,M,Q 

nstop,xsorce 


i2,tll,il,t21,il 

i2,tll,al 


NEXT 

NA  LINES 

A(i,j),i=l, . 

j=l,* 

. .  ,N 
. .  ,N 

6 f 10.0 

READ  BY  ROWS 

NEXT 

N  LINES 

B(i,j),i=l,. 

j=l/- 

. .  ,N 
. .  ,M 

4fl0.0 

READ  BY  ROWS 

NEXT 

NC  LINES 

C(i,j),i=l,. 

j=l/* 

. .  ,Q 
. .  ,N 

6f  10 . 0 

READ  BY  ROWS 

NEXT 

Q  LINES 

D(i,j),i=l,. 

j=l,- 

• .  ,Q 
. .  ,M 

4  f  10.0 

READ  BY  ROWS 

NEXT 

Nv  LINES 

v(i)  i=l, . 

. .  ,N 

6fl0.0 

NEXT 

Nx  LINES 

xs(i,j),i=l, 

j=o, 

. . .  ,M 
...,ntop 

4 f 10.0 

EACH  LINE 
CORRESPONDS 
TO  ONE  VALUE 
OF  ns. 

WHERE: 


NA  =  N 

2*N 


IF  N  <=  6 
OTHERWISE. 


NC  «  Q  IF  N  <=  6 
2*Q  OTHERWISE. 

Nv  =  0  IF  N  =  0, 

NV  =  1  IF  1  <=  N  <=  6, 

Nv  =  2  IF  N  >  6. 


Nx  =  0  IF  xsorce  =  'S'  OR 
Nx  =  nstop  +1  IF  xsorce  =  'F' 

NOTE:  THE  FORMAT  flO.O  USED  FOR  INPUT  DATA  FERMTTS  THE  DECIMAL 
POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  10  COLUMNS 
AND  ALSO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE  USED  (EG. 
3146.2  =  3.1462E+03) . 


******************************  output  ****************************** 


THE  INPUT  DATA,  SYSTEM  STATES,  AND  THE  OUTPUT  SEQUENCE(S)  ARE 
STORED  IN  TABULAR  FORM  IN  THE  FILE  'STATEQ.OUT' .  ADDITIONALLY, 

UP  TO  9  SEQUENCES  CONSISTING  OF  THE  INPUT  AND  OUTPUT  SEQUENCES 
AND  THE  SYSTEM  STATES  ARE  STORED  IN  THE  FIIE  'STATEQ.DAT'  TO 
FACILITATE  PLOTTING  BY  A  SEPARATE,  USER  FROVTDED  PROGRAM.  NOTE 
THAT  A  MAXIMUM  OF  9  SEQUENCES  ARE  WRITTEN  INTO  THIS  FILE.  IF 
MORE  THAN  9  SEQUENCES  EXIST,  ALL  OF  THE  INPUT  AND  OUTPUT  SEQUENCES 
(xs ( )  AND  ys() )  WILL  BE  STORED,  HOWEVER  SOME  OF  THE  SYSTEM  STATES 
(vs ( ) )  WILL  NOT  BE  STORED  IN  'STATEQ.DAT' .  THE  FORMAT  OF  THE  DATA 


ononon 


IN  ’STATBQ.DAT'  IS:  el2.6,  2X,  el2.6.  IHE  FIRST  ENTRY  CORRESPONDS 
TO  IHE  ORDINATE  VALUE,  AND  IHE  SECOND  ENTRY,  IHE  ABSCISSA  VALUE. 

ADDITIONAL  HEADER  INFORMATION  IS  WRITTEN  INTO  1  STATEQ.DAT'  TO 

ALLOW  FOR  CONTROL  AND  LABELING  OF  EACH  PICT.  I 


0******************************  EXAMPLE  ****************************** 


C  I 
C  IHE  INPUT  PARAMETERS  FOR  IHE  SYSTEM  DESCRIBED  RET  CM  ARE  STORED  - 
C  IN  THE  FILE  'STATEQ.TST' .  IHE  GOAL  IS  TO  READ  IHE  INPUT  VALUES  j 
C  FROM  THE  INPUT  FILE  AND  TO  CALCULATE  IHE  STATE  VECTOR  V  AND  IHE  j 
C  CORRESPONDING  OUTPUT  VECTOR  y  FOR  ns  =  0  TO  3.  J 

c  ! 


c 

GIVEN:  N  =  2 

c 

M  =  1 

c 

c 

Q  -  1 

c 

xl(ns)  =  10.0*u(ns) 

c 

xsorce  =  'F'  I.E.,  THE  SEQUENCE  xs(l,ns)  IS  READ 

c 

c 

FROM  THE  INPUT  FILE. 

c 

c 

INITIAL  CONDITIONS: 

c 

Vl(0)  =  5.0 

c 

c 

v2  (0)  =  -5.0 

c 

c 

SYSTEM  OF  EQUATIONS  IN  MATRIX  FORM: 

c 

[vl (ns+1) ]  =  [0.0  -l.O]*[vl(ns) ]  + 

[1.0]*[xl(ns) ] 

c 

c 

[v2 (ns+1) ]  [1.0  0.0]  [v2 (ns) ] 

[0.0] 

c 

[yl(ns) ]  =  [1.0  -1.0]*[vl(ns) ]  + 

[1.0]*[xl(ns) ] 

c 

c 

[v2  (ns)  ] 

c 

c 

IHE  INPUT  FILE  IS: 

c 

02  1  1 

c 

03  F 

c 

0.0  -1.0 

c 

1.0  0.0 

c 

1.0 

c 

0.0 

c 

1.0  -1.0 

c 

1.0 

c 

5.0  -5.0 

c 

10.0 

c 

10.0 

c 

10.0 

c 

10.0 

c 
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THE  RESULTING  OUTPUT  FILE  'STATEQ.OOT'  IS: 


INPUT  PARAMETERS: 


INFUT  DATA  SOURCE  FILE:  STATEQ.TST 
THE  NUMBER  OF  STATES  IS:  N  =  2 

THE  NUMBER  OF  SYSTEM  INPUTS  IS:  M  =  1 
THE  NUMBER  OF  SYSTEM  OUTPUTS  IS:  Q  -  1 
THE  VALUE  OF  nstop  IS:  nstop  =  3 
THE  VALUE  FOR  xsorce  IS:  F 


THE  MATRIX  A(i,j)  IS: 


. 0000E+00  - . 1000E+01 

. 1000E+01  . 0000E+00 


THE  MATRIX  B(i,j)  IS: 


. 1000E+01 
. 0000E+00 


THE  MATRIX  C(i, j)  IS: 


. 1000E+01  - . 1000E+01 


THE  MATRIX  D(i,j)  IS: 


. 1000E+01 


THE  INITIAL  CONDITION  OF  THE  STATE  VECTOR  IS: 


Vl  =  . 500000E+01 

v2  =  - . 500000E+01 


OUTPUT  DATA: 


FOR  ns  =  0  THE  STATE  OF  THE  SYSTEM  IS: 

THE  VECTOR  x  is: 

Xl  =  . 100000E+02 

THE  VECTOR  v  is: 
vl  =  . 500000E+01 

v2  =  -.500000E+01 
THE  VECTOR  y  is: 
yl  =  . 200000E+02 


FOR  ns  =  1  THE  STATE  OF  THE  SYSTEM  IS: 

THE  VECTOR  x  is: 

xl  =  . 100000E+02 

THE  VECTOR  v  is: 
vl  =  . 150000E+02 

v2  =  . 500000E+01 


I 


K 


-  »u 


THE  VECTOR  y  is: 
yl  =  . 200000E+02 

FOR  ns  =  2  THE  STATE  OF  THE  SYSTEM  IS: 
THE  VECTOR  x  is: 

Xl  =  . 100000E+02 

THE  VECTOR  v  is: 
vl  =  . 500000E+01 

v2  =  . 150000E+02 

THE  VECTOR  y  is: 
yl  =  . OOOOOOE+OO 

FOR  ns  =  3  THE  STATE  OF  THE  SYSTEM  IS: 
THE  VECTOR  X  is: 

Xl  -  . 100000E+02 

THE  VECTOR  v  is: 

Vl  =  -.500000E+01 

V2  =  . 500000E+01  '  .  . 

THE  VECTOR  y  is: 
yl  =  .OOOOOOE+OO 


FOR  ILLUSTRATIVE  PURPOSES  THE  SAME  INPUT  SEQUENCE  OOUIO  HAVE  BEEN 
GENERATED  BY  CHANGING  xsorce  TO  'S'  AND  USING  SUBROUTINE  xgen 
TO  GENERATE  THE  VAHJES  FOR  XS(l,ns) .  THE  APPROPRIATE  FORTRAN 
STATEMENTS  ARE  WRITTEN  INTO  xgen  BUT  'COMMENTED  OUT'  FOR  THIS 
EXAMPLE. 


C***************************  MAIN  PROGRAM  **************************** 


real  A(10,10),  B(10,4),  C(4,10),  D(4,4),  jj 
real  ys(4, 0:99) ,  vs(10, 0:100) ,  xs(4,0:99),  v(10) 
integer  Q 

character*!  node,  xsorce,  infile* 12 


C  PROMPT  USER  FOR  MODE:  BATCH  OR  TEST. 

write (*,1115) 
read(*,1117)  mode 

if  ( (mode. eq.  'Y')  .or.  (mode. eq.  'y'))  then 
mode  =  'Y' 


*] 

i] 

't 


write (*,1118) 
read(*,1119)  infile 
else 

infile  =  'STAIEQ.IN' 
endif 

C  UNIT=1  DEFINED  AS  INFUI  FIIE.  UNITS=2,3  DEFINED  AS  0OTR7T  FTTES. 

open (unit=l , file® infile , status= ' old 1 , iostat=ierr , err=999 ) 
open  (unit=2 , file® ' STATEQ . OUT ' ) 
open (unit=3, file® 'STATEQ.DAT' ) 

C  READ  INPUT  PARAMETERS  AND  PERFORM  ERROR  CHECKS. 

read(l,1001)  N,  M,  Q 
read (1,1002)  nstop,  xsorce 

if ( (N.lt.O) .or. (N.gt.10) )  then 
write (*,1124)  'N',  N 

stop  'The  allowed  values  for  '  'N' 1  are:  0  <=  N  <=  10. ' 


if((M.lt.O)  .or.  (M.gt.4))  then 
write (*,1124)  'M',  M 

stop  'The  allowed  values  for  '  'M' '  are:  0  <=  M  <=  4. ' 
endif 

if((Q.lt.O) .or. (Q.gt.4))  then 
write (*,1124)  'Q',  Q 

step  'The  allowed  values  for  '  'Q' '  are:  0  <=  Q  <=  4. ' 
endif 

if ( (nstop. It. 0) .or. (nstop. gt. 99) )  then 
write(*,1127)  nstop 

step  'The  allowed  values  for  nstop  are:  0  <  nstop  <=  99. ' 
endif 

if ((xsorce. eq. 'F') .or. (xsorce. eq. 'f') )  then 
xsorce  =  'F' 

elseif ( (xsorce. eq. 'S' ) .or. (xsorce. eq. 's' ) )  then 
xsorce  =  'S' 
else 

write (*,1128)  xsorce 

stop  'The  allowed  values  for  ''xsorce''  are:  "F"  or  ''S''.' 
endif 

C  FOR  TEST  MODE  ECHO  INPUT  PARAMETERS  ONTO  MONITOR  (UNIT  =  *)  . 

if (mode.eq. ' Y ' )  then 
write (*,1006) 
write ( * , 1007 )  inf ile 
write(*,1008)  N 


write (*,1009)  M 
write (*,1010)  Q 
write (*,1011)  nstop 
write (*,1012)  xsorce 
if (N.eq.O)  write(*,1131) 
endif 

C  WRITE  INR7T  PARAMETERS  N,M,Q, nstop, xsorce  INTO  FUE:  STA1EQ.COT. 

write (2, 1006) 
write ( 2 , 1007 )  infile 
write (2, 1008)  N 
write (2, 1009)  M 
write (2, 1010)  Q 
write (2, 1011)  nstop 
write(2,1012)  xsorce 

C  READ  SYSTEM  MATRICES  AND  WRITE  THEM  INTO  FILE:  STATEQ.OOT. 

if (N.eq.O)  then 
write (2, 1131) 

else 

write (2, 1110)  'A(i, j) ' 
do  30  i=l,  N 

read(l,1003)  (A(i, j) , j=l,N) 
write (2, 1005)  (A(i, j) , j=l,N) 

30  continue 

write (2, 1110)  'B(i,j) ' 
do  40  i=l,  N 

read(l, 1004)  (B(i, j) , j=l,M) 
write(2,l005)  (B(i, j) , j=l,M) 

40  continue 

write (2, 1110)  'C(i, j) • 
do  50  i=l,  Q 

read(l,1003)  (C(i, j) , j=l,N) 
write (2/ 1005)  (C(i, j) , j=l,N) 

50  continue 

endif 


write (2, 1110)  'D(i,j) ' 
do  54  i=l,  Q 

read(l, 1004)  (D(i, j) , j=l,M) 
write(2d005)  (D(i,  j)  ,  j=l,M) 

54  continue 

C  READ  THE  INITIAL  CONDITION  VECTOR  V()  AND  WRITE  THE  VALUES 
C  INTO  FILE:  STATEQ.OOT. 


L _ _ 


MOXIMIUU'SIXAM'.V 


* 

f 


if(N.gt.O)  then 
read(l,1003)  (v(i),i=l,N) 

>0:116(2,1123) 
do  64  i=l,  N 

write (2, 1133)  'V,  i,  v(i) 
vs(i,0)  =  v(i) 

64  continue 

C  FOR  TEST  MODE  WRITE  THE  VECTOR  v()  ONTO  THE  MONITOR. 

if  (mode.eq.  *  Y 1 )  then 
write(*,*) 

pause  i - >  Type  <cr>  to  continue.  < - ' 

write (*,1123) 
do  65  i=l,  N 

write (*,1133)  'v',  i,  v(i) 

65  continue 
endif 

endif 

C  FOR  xsorce  =  'F'  READ  THE  ARRAY  xs(i,j)  FROM  THE  INPUT  FILE. 

C  FOR  xsorce  =  'S'  CALL  'xgen'  TO  GENERATE  THE  ARRAY  XS(i,j). 

if (xsorce. eq. *  F ' )  then 
do  70  j=0,  nstop 

read(l,1004)  (xs(i, j) ,i=l,M) 

70  continue 

else 

call  xgen(xs,M, nstop) 
endif 

C  COMPUTE  ITERATIVE  SOLUTION  TO  THE  SYSTEM  OF  EQUATIONS. 

call  itrate(N,M,Q,nstcp,A,B,C,D,xs,vs,ys) 

C  FOR  EACH  VALUE  OF  ns  WRITE  THE  VALUES  OF  xs() ,  vs() ,  ys()  TO  THE 
C  OUITUT  FIIE:  STATEQ.OUT. 

write (2, 1129) 


101 


do  100  ns=0,  nstop 
write(2,1130)  ns 
write(2,1132)  'x' 
do  101  i=l,  M 
write (2, 1133) 


'x',  i,  xs(i,ns) 


continue 


if(N.gt.O)  then 
write(2,ll32)  'v' 
do  102  i=l,  N 

write (2, 1133)  'v', 


i,  vs(i,ns) 
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continue 
endif 

write(2,1132)  'y' 
do  103  i=l,  Q 

write(2,1133)  'y',  i,  ys(i,ns) 

103  continue 
100  continue 

C  WRITE  THE  SEQUENCES  XS,  vs,  ys  INTO  THE  FIIE:  STMEQ.DAT. 

nunplts  =  N  +  M  +  Q 
if (nunplts.gt.9)  then 
nurnplts  =  9 
N  *  9  -  M  -  Q 
endif 

write (3, 2000)  numplts 

do  55  i=l,  M 
write (3, 2001)  nstopfl 

write  (3, 2002)  'INPUT  SEQUENCE  x' ,  char(48+i) ,  '  (ns)' 
write(3,*)  'SAMPLE  #  (ns)' 
write(3,2003)  'x',  char(48+i) ,  '  (ns)' 
do  56  ns=0,  nstop 
jj  -  ns 

write (3, 2010)  jj,  xs(i,ns) 

56  continue 
55  continue 

do  57  i=l,  N 
write (3, 2001)  nstojH-1 

write (3, 2002)  'STATE  SEQUENCE  V',  char(48+i) ,  '  (ns)' 
write(3,*)  'SAMPLE  #  (ns)' 
write  (3, 2003)  'v',  char(48+i) ,  '  (ns)' 
do  58  ns=0,  nstop 
jj  =  ns 

write(3,2010)  jj,  vs(i,ns) 

58  continue 

57  continue 

do  59  i=l,  Q 
write (3, 2001)  nstop+-l 

write  (3, 2002)  'OUTPUT  SEQUENCE  y\  char(48+i) ,  ’  (ns)' 
write(3,*)  'SAMPLE  #  (ns)' 
write(3,2003)  'y',  char(48+i) ,  '  (ns)' 
do  60  ns=0,  nstcp 
jj  =  ns 

write(3,2010)  jj,  ys(i,ns) 
continue 
continue 


60 

59 


write (*,1121) 

999  close (unit=l) 
close  (unit^2) 
close (unit=3) 

if(ierr.gt.O)  then 
write ( * , 1116)  ierr 
endif 

C********  INEUT  FORMAT  ******** 

1001  format (i2, til ,il,t21,il) 

1002  format (i2, til, al) 

1003  format ( 6 ( f 10 . 0) ) 

1004  format (4 ( flO . 0) ) 

c******************************** 

100-J  format(6(2X,el0.4) ) 

1006  format (tl6, //////, '  INPUT  PARAMETERS: ' ,//) 

1007  format(t4, 'INPUT  DATA  SOURCE  FILE:  \al2) 

1008  format (t4, 'THE  NUMBER  OF  STATES  IS:  N  =  ',i2) 

1009  format (t4,  'THE  NUMBER  OF  SYSTEM  INPUTS  IS:  M  =  ',il) 

1010  format (t4,  'THE  NUMBER  OF  SYSTEM  OUTPUTS  IS:  Q  =  ',il) 

1011  format(t4, 'THE  VAIDE  OF  nstcp  IS:  nstcp  =  ',i2) 

1012  format (t4,  'THE  VALUE  FOR  xsorce  IS:  '  ,al,/) 

1110  format  (///,t4,  'THE  MATRIX  ',a6, '  IS:',/) 

1115  0  format  (lx,  'DO  YOU  WISH  TO  RUN  THIS  PROGRAM  IN  TEST' , 

1'  MODE  ?  (Y/N)  <CR>  :  ' , \, ) 

1116  Oformat (/// ,  lx,  'ERROR  OPENING  INPUT  FILE,  PROGRAM  TERMINATED.  ' , 
l//,lx,  'ERROR  CODE: '  ,i4, /////) 

1117  format (al) 

1118  Oformat (/////, lx,  'TYPE  THE  NAME  OF  YOUR  DATA  FILE  FOLLOWED', 

1'  BY  <CR>.  ' ,/,  '  IF  YOU  DESIRE  TO  MAKE  A  TEST  RUN  USING  THE' , 

2 '  SAMPLE  DATA  ALREADY  STORED' ,/,  '  IN  THE  FILE:  STATEQ.TST' , 

3  '  TYPE:  STATEQ.TST  <CR>',/, '  FILENAME:  '  ,\, ) 

1119  format (al2) 

1121  Oformat  (//,  '  TABULAR  OUTPUT  DATA  IS  STORED  IN  FILE:  STATEQ.OUT.  ' , 
1/,  '  PLOTTING  DATA  IS  STORED  IN  FILE:  STATEQ.DAT.  ') 

1123  format (//,t4,  'THE  INITIAL  CONDITION  OF  THE  STATE  VECTOR  IS: ' ,/,) 

1124  Oformat (//, »  The  value  of  *,al, '  is  ',i2, '.  This  value  is  not 
1  allowed. ' ) 

1127  Oformat (//,'  The  value  of  nstcp  is  ',i2,'.  This  value  is  not 
1  allowed. ' ) 

1128  Oformat (//, '  The  value  of  xsorce  is  ',al, '.  This  value  is  not 
1  allowed. ') 

1129  format (//,tl6, '  OUTPUT  DATA: ') 

1130  format (// ,t2,  'FOR  ns  =  '  ,i2,  '  THE  STATE  OF  THE  SYSTEM  IS:  ') 

1131  format(/,'  THIS  SYSTEM  IS  NON-RECURSIVE  !!!') 

1132  format (t4,  'THE  VECTOR  '  ,al, '  is:  •) 

1133  format (t6, al, il, '  =  ',el2.6) 

2000  format (il) 

2001  format (i3) 
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2002  format (al7,al,a5) 

2003  format (al,al,a5) 

2010  format(el2.6,2x,el2.6) 


end 


C  SUBROUTINE:  itrate 


PURPOSE:  THIS  SUBROUTINE  CCMFUTES  THE  ITERATIVE  SOLUTION  TO 
THE  DISCRETE,  STATE  MATRIX  SYSTEM  OF  EQUATIONS. 

THE  INRJTS  TO  THIS  SUBROUTINE  ARE  THE  DIMENSIONS 
N,M,Q,  THE  PARAMETER  nstcp,  AND  THE  2-DIMENSIONAL 
ARRAYS  A,  B,  C,  D,  XS,  AND  VS.  FOR  EACH  VAIDE  OF  ns 
FROM  ns  =  0  TO  ns  =  nstcp  THE  STATE  OF  THE  SYSTEM  VS 
IS  OCMPUTED  AS  IS  THE  CORRESPONDING  OUTPUT  ARRAY  ys. 


subroutine  itrate(N,M,Q,nstop,A,B,C,D,xs,vs,ys) 
integer  Q 

real  A(10,10),  B(10,4),  C(4,10),  D(4,4) 
real  xs (4, 0:99) ,  vs(10, 0:100) ,  ys(4,0:99) 

do  1  ns=0,  nstop 

C  FOR  ns  =  0  TO  nstcp:  OCMPUTE  THE  SOLUTION 
C  TO  THE  EQUATION:  vs(ns+l)  =  A*vs(ns)  +  B*xs(ns) . 

do  2  i=l,  N 
xi  =  0.0 

vs(i,ns+l)  =  0.0 
do  3  k~l,  M 

xi  =  xi  +  B(i,k)*xs(k,ns) 

3  continue 

do  4  j=l,  N 

vs(i,ns+l)  =  vs(i,ns+l)  +  A(i, j)*vs(j,ns) 

4  continue 

vs(i,ns+l)  =  vs(i,ns+l)  +  xi 
2  continue 


C  COMPUTE  THE  SOLUTION  TO  THE  EQUATION:  ys(ns)  =  C*vs(ns)  +  D*xs(ns)  . 

do  5  1=1,  Q 
ys(l,ns)  =  0.0 
xi  =  0.0 
do  6  k=l,  M 


275 


xi  =  xi  4-  D(l,k)*xs(k,ns) 

6  continue 
do  7  j=l,  N 

ys(l,ns)  =  ys(l,ns)  +  C(l, j)*vs(j,ns) 

7  continue 

ys(l,ns)  =  ys(l,ns)  +  xi 
5  continue 

1  continue 

return 

end 


C  SUBROUTINE:  xgen 


C  PURPOSE:  THIS  SUBROUTINE  ALLOWS  THE  USER  TO  GENERATE  VALDES  FOR 
C  THE  2 -DIMENSIONAL  ARRAY  XS(i, j) .  IF  XSOrce  =  'S'  THE 

C  MAIN  PROGRAM  WILL  CALL  THIS  SUBROUTINE.  IF  XSOrce  =  'F' 

C  THIS  SUBROUTINE  WILL  NOT  BE  CALLED  BY  THE  MAIN  PROGRAM. 


i 

j  subroutine  xgen(xs,M,nstop) 

j  real  xs(4,0:99) 

pi  =  4.0*atan(1.0) 

C*********************************************************************** 


C  DEVELOP  THE  ALGORITHM  FOR  GENERATING  VALUES  OF  xs(i,  j)  IN  THIS 
C  SPACE.  THE  STATEMENTS  TYPED  IN  MUST  FOLLOW  STANDARD  FORTRAN  77 
C  RULES  AND  MAY  USE  FORTRAN  77  INTRINSIC  UNCTIONS  SUCH  AS:  SIN() , 
C  OOS()  , . . .  NOTE  THAT  THE  RCW  INDEX  i  DEMOTES  THE  INPUT  SEQUENCE 
C  NUMBER  1  <=  i  <=  M,  AND  THE  INDEX  j  DENOTES  THE  VALUE  FOR  ns 
C  0  <=  ns  <=  nstop.  AN  EXAMPLE  OF  AN  ALGORITHM  GENERATING  VALUES 
C  FOR  THE  SEQUENCE  xs(l,ns)  IS: 

C 

C 

C***  EXAMPLE  *** 

C  do  88  ns=0,  nstop 

C  xs(l,ns)  =  10.0 

C  88  continue 


C*********************************************************************** 


return 


oooooooooooon 


VERSION:  2/03/88 


C  PL0TDAT.FC5R 

C 
C 

C  PURPOSE:  THIS  PROGRAM  IS  DESIGNED  TO  CREATE  UP  TO  NINE  TWO- 
C  DIMENSIONAL  (2-D)  PIOTS  BY  READING  DATA  FROM  AN  INPUT 

C  FH£  AND  PLOTTING  THE  DATA  ON  THE  MONITOR  SCREEN.  THE 

C  PROGRAM  CONSISTS  OF  A  MAIN  PROGRAM  AND  THE  SUBROUTINES 

C  scale  AND  gridd.  THE  MAIN  PROGRAM  READS  THE  DATA  FROM  THE 

C  INPUT  FILE,  AND  CREATES  THE  FLOT(S)  BY  MAKING  CALLS  TO 

C  THE  GRAFHMATTCS  GRAPHICS  LIBRARY  (NOTE  1) .  SUBROUTINE 

C  scale  IS  CALLED  BY  THE  MAIN  PROGRAM  TO  SCAIE  THE  DATA  SO 

C  AS  TO  OPTIMALLY  FILL  THE  SCREEN  WITH  EACH  PLOT.  SUBROUTINE 

C  gridd  IS  CALLED  BY  THE  MAIN  PROGRAM  IF  THE  USER  ELECTS  TO 

C  HAVE  A  GRID  OVERLAY  THE  PLOT.  THE  USER  HAS  THE  OPTION  OF 

C  PERFORMING  A  TRIAL  RUN  BY  PLOTTING  THE  DATA  PRESTORED  IN 

C  THE  FILE  'PLOTDAT.TST' .  IT  IS  RECOMMENDED  THAT  FIRST-TIME 

C  USERS  MAKE  A  TRIAL  RUN  BY  SPECIFYING  THE  INPUT  FILE 

C  'PLOTDAT.TST'  WHEN  PROMPTED  FOR  THE  NAME  OF  THE  INPUT 

C  FILE.  THE  SPECIFIC  HARDWARE  REQUIREMENTS  NECESSARY  TO  HUN 

C  THE  PROGRAM  ARE  OUTLINED  BELOW.  ADDITIONALLY,  THE  INPUT 

C  FORMAT  REQUIREMENTS  ARE  PRESENTED  AND  A  SAMPLE  INPUT  FIIE 

C  LISTING  IS  INCLUDED. 

C 

C  NOTE  1.  COPYRIGHT  1984,  MICROOOMPATIBIES  INC.,  SILVER  SPRINGS,  MD. 

C 

C 

C**********************  HARDWARE  REQUIREMENTS  ************************ 


THIS  PROGRAM  WAS  WRITTEN  FOR  PERSONAL  COMPUTERS  OUTFITTED  WITH  A 
COLOR  GRAPHICS  ADAPTER  (OGA)  CARD.  THE  MONITOR  SCREEN  IS  ASSUMED 
TO  BE  640  X  200  PIXELS.  FOR  HARDCOPY  PRINTOUTS  OF  THE  PLOTS  THE 
PROGRAM  WILL  DRIVE  A  DOT  MATRIX  PRINTER  IF  INSTALLED.  FOR 
COMPUTERS  OUTFITTED  WITH  OTHER  THAN  A  CGA  CARD  THE  PROGRAM  MAY  NOT 
OPERATE.  FOR  MACHINES  THAT  HAVE  AN  EGA  CARD  THE  PROGRAMS  WILL  NOT 
PRODUCE  A  HARDCOPY  PRINTOUT  OF  THE  PLOTS.  TO  OVERCOME  THIS 
LIMITATION,  USERS  SHOULD  TRY  EXECUTING  THE  'PRINT  SCREEN'  COMMAND. 


******************************  INPUT  ******************************** 


C  UPON  EXECUTION  OF  THE  PROGRAM,  THE  USER  IS  PROMPTED  FOR  THE  NAME 
C  OF  THE  INPUT  FILE.  THE  INPUT  FORMAT  STATEMENTS  OCCUR  IN  THE  MAIN 
C  PROGRAM  FOLLOWING  THE  CAPTION:  ********  INPUT  FORMAT  ********. 

C  THE  FORM  OF  THE  INPUT  DATA  FILS  IS: 

C 
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onooooooooooonoooooooooooooooocoooooooooooo 


LINE  # 

ENTRIES 

FORMAT 

RESTRICTIONS 

1 

nunplts 

il 

1  <=  nunplts  <=  9 

2 

nunpts 

i3 

2  <=  nunpts  <=  999 

3 

title 

a40 

4 

xlabl 

al4 

5 

ylabl 

al4 

6  •  •  • 
NOTE  1 

x(),  y() 

fl2.0,2X,fl2.0 

NOTE  2 

WHERE: 

nunplts  =  AN  INTEGER  VAHJE  THAT  SPECIFIES  THE  NUMBER  OF  PLOTS  TO 

BE  CREATED  BY  THE  PROGRAM.  FOR  EACH  PLOT  1,  . . . ,  nunplts 
THE  INPUT  DATA  SPECIFIED  BELOW  MUST  OCCUR  IN  THE  INPUT 
FILE. 

nunpts  =  AN  INTEGER  VAHJE  THAT  SPECIFIES  THE  NUMBER  OF  POINTS  TO 
BE  READ  FROM  THE  INPUT  FIIE,  FOR  A  GIVEN  PLOT,  AND 
PLOTTED. 

title  =  A  CHARACTER  STRING  CONSISTING  OF  UP  TO  40  CHARACTERS. 
THIS  STRING  IS  PLACED  ABOVE  THE  PLOT. 

Xlabl  =  A  CHARACTER  STRING  CONSISTING  OF  UP  TO  14  CHARACTERS. 
THIS  STRING  IS  PLACED  BENEATH  THE  X-AXIS. 

ylabl  =  A  CHARACTER  STRING  CONSISTING  OF  UP  TO  14  CHARACTERS. 
THIS  STRING  IS  PLACED  ADJACENT  TO  THE  Y-AXIS. 

x()  y()  =  LINES  6. .  .6+nunpts  MUST  EACH  CONTAIN  A  PAIR  OF  REAL 

NUMBERS  THAT  COMPRISE  THE  ORDINATE  x()  AND  ABSCISSA  y() 
VALUES  DEFINING  A  SINGLE  POINT  TO  BE  PLOTTED. 

NOTE  1.  THE  DATA  REQUIRED  FOR  LINES  2  ...  6+nunpts  IS  REPEATED 

FOR  EACH  PLOT  (1. .  .nunplts)  TO  BE  CREATED  BY  THE  PROGRAM. 

NOTE  2.  THE  FORMAT  fl2.0  USED  FOR  INPUT  DATA  PERMITS  THE  DECIMAL 
POINT  TO  BE  PLACED  ANYWHERE  IN  THE  FIELD  OF  12  COLUMNS 
AND  ALSO  ALLOWS  THE  EXPONENTIAL  FORMAT  TO  BE  USED  (E.G., 
3146.2  =  3 . 1462E+03 ) . 


o  o  o  o  o 


C  1 
C  005 

C  title  (UP  TO  40  CHARS)  IS  HUNTED  HERE 
C  xlabl  HERE 
C  ylabl  HERE 


C  0.0  0.0 

C  1.0  1.0 

C  2.0  2.0 

C  3.0  3.0 

C  4.0  4.0 

C 
C 


C***************************  MAIN  PROGRAM  *************************** 


$STQRAGE:2 

character  copy*l,  yscal*3,  xlabl*14,  ylabl*14,  scal*6 
character  title*40,  infile* 12,  plot*l,  xx*l,  yy*l,  grid*l 
real  x(999) ,  y(999) ,  <*1111(4,999) 
integer  tmode,gmode 

C  DEFINE  SCREEN  SIZE:  640  x  200  PIXELS 

gmode  =  6 
tmode  =  2 

C  DEFAULT  PLOT  TYPE:  SOLID  BLACK  LINE,  POINTS  CONNECTED  BY  A  LINE. 

ndots  =  o 
ioolor  =  3 
klrsym  ~  3 

ENABLE  MINOR  TIC  MARKS  OH  AXES. 

ENABLE  MAJOR  TIC  MARKS  AND  LABEL  TO  AN  ACCURACY  OF  0.01. 

minorx  =  1 
minory  =  1 
label  =  -1 
ndec  =  2 

ENABLE  PICT  AUTO-SCALING, 
y/x  RATIO  OF  PICT  =  1.0. 

PICT  ASPECT  RATIO  =  1.2. 

io  =  0 
yx  =  1.0 
aspct  =  1.2 
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C  DEFINE  CHARACTER  SIRING  CONSTANTS. 

seal  =  'X  10**' 

XX  *  'x' 

yy  -  'y' 

C  CLEAR  SCREEN 

call  qclear(0,7) 

C  OPEN  INHJT  FILE  AND  READ  THE  VALUE  nunplts. 

write  (*,lll) 
read(*,109)  infile 

open  ( unit=l ,  f  ile==inf  ile ,  status= '  old ' ,  iostat=ierr ,  err=999 ) 
read (1,100)  nunplts 

C  PROMPT  USER  FOR  DESIRED  OPTIONS. 

do  5  i=l,  nunplts 
data  x/ 999*0.0/,  y/999*0.0/ 
write(*,107) 
read(*,101)  copy 
write (*,112) 
read (*,101)  grid 
write(*,108) 
read (*,101)  plot 

C  READ  HEADER  DATA  FROM  INPUT  FILE. 

read (1,102)  nunpts 
read (1,104)  title 
read (1,105)  xlabl 
read (1,105)  ylabl 

C  FOR  PLOTS  OF  25  POINTS  OR  LESS,  PLOTTING  SYMBOL  =  '+' . 

if (nunpts. le. 25)  then 
isymbol  =  43 
itype  =  0 
else 

isymbol  =  -2 
itype  =  l 
endif 

C  SCALE  THE  INPUT  DATA. 

xmin  =  3.0eF38 

xmax  =  -3.0e+38 
ymin  =  3.0et38 
ymax  =  -3.0ef38 


do  10  k=l,  numpts 

read(l,106)  x(k) ,  y(k) 
xmax  =  max(x(k)  ,xmax) 
xmin  =  min(x(k)  ,xmin) 
ymax  =  max(y(k)  ,ymax) 
ymin  =  min(y(k)  ,ymin) 

10  continue 

if  (xmax.  eq.  xmin)  then 
write(*,*)  'Execution  halted. ' 

write (*,*)  'The  increment  of  the  ordinate  values  =  0.0. ' 
step  'Check  the  ordinate  values  in  the  input  file. ' 
endif 

if  ( (ymax. eq.0.0)  .and.  (ymin. eq. 0.0) )  then 
write(*,*)  'For  the  current  plot,  the  maximum  and  minimum' 
write(*,*)  'abscissa  values  are:  ymax  =  ymin  =  0.0.' 
write(*,*)  'Data  ignored  ...  computing  next  plot.' 
goto  5 
endif 

call  scale (xmin, xmax, ixscal, xx) 
call  scale  (ymin,  ymax,  iyscal,yy) 
scalx  =  real  (ixscal) 
scaly  =  real (iy  seal) 

xmajor  =  abs(xmax-xmin)/5.0  -  0.000001 
ymajor  =  abs(ymax-ymin) /5.0  -  0.000001 

do  11  k=l,  nunpts 

x(k)  =  x(k)/(l0.0**ixscal) 
y(k)  =  y(k)/(l0.0**i^cal) 

11  continue 

C  EEGIN  GRAPHICS  SECTION, 
call  qsmode(gmode) 

call  qplot(  160, 600, 3 0,180, xmin, xmax, ymin, ymax, xmin, ymin, io,yx, 
&  aspet) 

call  qsetup (ndots , icolor , isymbol , klrsym) 
call  qptxt( 40, title, icolor, 29, 24) 

call  qxaxis (xmin, xmax, xmaj or, minorx, label, ndec) 
call  qptxt(14,xlabl,icolor,40,0) 
call  qptxt(6, seal, icolor, 68,1) 
call  qcyput(576,8,scalx,0) 

call  qyaxis (ymin, ymax, ymaj or, minory, label, ndec) 
call  qptxt(14,ylabl, icolor, 0,12) 
call  qptxt (6, seal, icolor, 0,22) 
call  qqnput (28, 176, scaly, 0) 
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C  OVERLAY  GRID  ONTO  THE  PLOT  IF  SPECIFIED. 


if((grid.eq.  'Y')  .or.  (grid.eq.  'y'))  then 
call  9ridd() 
endif 

C  PLOT  THE  POINTS  OF  THE  ARRAYS. 

call  qt^l(itype,rrumpts,x,y) 

C  PRINT  HARDCOPY  IF  SPECIFIED. 

if ( (copy.eq. 'y' ) .or. (copy.eq. 'Y' ) )  then 
call  qpscm 
endif 

call  qinkey ( iextend , key) 
call  qsmode(tmode) 

5  continue 

write(*,*)  'Plotting  completed,  returning  to  DOS.' 

999  close (unit=l) 

if (ierr.gt.O)  then 
write(*,110)  infile,  ierr 
endif 

C********  INPUT  FORMAT  ******** 

100  format (il) 

102  format (i3) 

104  format (a40) 

105  format (al4) 

106  format(fl2.0,2x, fl2.0) 

C****************************** 

101  format (al) 

107  0format(lx, 'Do  you  want  a  hardcopy  of  the  plot  to  be', 

1'  generated  next  ?  Y/N  <CR>',\) 

108  0format(lx,  'To  begin  the  plotting  or  to  exit  from  the', 

1 '  plotting  enter  <CR> . ' , \) 

109  format (al2) 

110  format (lx, 'Error  opening  file:  ',al2,'  Error  code  =  • , i4) 

111  Of ormat (/////,  lx,  'TYPE  THE  NAME  OF  YOUR  DATA  FILE  FOLLOWED ' , 

1'  BY  <CR>.  ' ,/,  '  IF  YOU  DESIRE  TO  MAKE  A  TEST  RUN  USING  THE' , 

2'  SAMPLE  DATA  ALREADY  STORED',/,'  IN  THE  FILE:  PLOTDAT.TST' , 

3'  TYPE:  PLOTDAT.TST  <CR>',/,'  FILENAME: ', \, ) 

112  format  (lx,  'Do  ycu  want  a  grid  to  overlay  the  plot  ?  Y/N  <CR>',\) 


o  o  o  o  o 


c 


SUBROUTINE:  scale 


PURPOSE:  THIS  SUBROUTINE  FINDS  THE  LARGEST  INTEGER  POWER  OF  TEN 
OCCURRING  IN  EITHER  valmin  OR  valmax.  THE  RESULTING 
EXPONENT  IS  RETURNED  TO  THE  CAT  I, TNG  PROGRAM  IN  iscal. 
THE  SUBROUTINE  ALSO  SCALES  valmin  AND  valmax  BEFORE 
RETURNING  THESE  VALUES  TO  THE  MAIN  PROGRAM. 


subroutine  scale  (valmin,  valmax,  iscal  ,c) 
character  c*l 

iscal  =  0 
argl  =  0.0 
arg2  =  0.0 

C  FIND  THE  LARGEST  INTEGER  POWER  OF  10  IN  THE  SEQUENCE. 

if  (valmax.  ne.  0.0)  then 
argl  =  loglO  (abs  (valmax) ) 
endif 

if  (valmin. ne. 0.0)  then 
arg2  =  loglO  (abs  (valmin) ) 
endif 

iscal  =  int  (max  (argl,  arg2)) 

C  SCALE  THE  MAXIMUM  AND  MINIMUM  VALUES  OF  THE  SEQUENCE. 

valmin  =  valmin/  (10.0**  iscal) 
valmax  =  valmax/ (10. 0**iscal) 

C  CREATE  A  BUFFER  SPACE  FOR  THE  ABSCISSA  VALUES  OF  THE  PLOT. 
if(c.eq. 'y')  then 

if  ((valmin.lt. 0.0)  .and.  (valmax. It. 0.0) )  valmax  =  0.0 
if  ( (valmin. gt. 0.0)  .and.  (valmax. gt. 0.0) )  valmin  =  0.0 
tertpnin  =  anint  ( -1 . 0+valmin) 
tempmax  =  anint  (1.0+valmax) 

if  (valmin. ne.  0.0)  then 

if (abs(valmin)  -  0.1*abs(tempmin) )  3,4,4 
tenpnin  =  .  l*tempnin 
goto  2 

valmin  =  valmin  +  .i*tenprriin 

endif 

if  (valmax.  ne.  0.0)  then 

if  (abs  (valmax)  -  0.1*abs(tenpnax) )  6,7,7 


2 

3 

4 


5 


Addison-Wesley  Publishing  Co. ,  1988 


Processiji 


Etter,  D.  M.  ,  Problem  Solving  with  Structured  Fortran 
77,  Benjamin/Cummings  Publishing  Co.,  Inc.,  1984. 

Gerald,  C.  F.  and  Wheatley,  P.  0.,  Applied  Numerical 
Analysis.  3d  ed.,  p.20,  Addison-Wesley  Publishing  Co., 
1984. 


Bibliography 


Brigham,  E.  0. ,  The  Fast  Fourier  Transform.  Prentice-Hall 
Inc.,  1974. 

Dudgeon,  D.  E.  and  Mersereau,  R.  M. ,  Multidimensional 
Digital  Signal  Processing.  Prentice-Hall  Inc.,  1984. 

Gonzalez,  R.  C.  and  Wintz,  P.,  Digital  Image  Processing. 
Addison-Wesley  Publishing  Co.,  1977. 

Kirk,  D.  E.,  Various  Fortran  algorithms  for  the  solution  of 
Digital  Signal  Processing  problems.,  1987. 


286 


INITIAL  DISTRIBUTION  LIST 


No. 


1.  Defense  Technical  Information  Center 
Cameron  Station 

Alexandria,  Virginia  22304-6145 

2.  Library,  Code  0142 
Naval  Postgraduate  School 
Monterey,  California  93943-5002 

3.  Professor  D.  E.  Kirk,  Code  62Ki 
Naval  Postgraduate  School 
Monterey,  California  93943-5000 

4.  Professor  R.  D.  Strum,  Code  62St 
Naval  Postgraduate  School 
Monterey,  California  93943-5000 

5.  Professor  C.  W.  Therrien,  Code  62Ti 
Naval  Postgraduate  School 
Monterey,  California  93943-5000 

6.  Lt.  J.  V.  England,  Code  62Eg 
Naval  Postgraduate  School 
Monterey,  California  93943-5000 

7.  Strategic  Systems  Project  Office 

Atten:  Fred  Wimberly,  SP  27331 

617  21st.  Street  South 
Arlington,  Virginia  22202 

8.  Professor  R.  Santoro 

Department  of  Electrical  Engineering 
U.  S.  Naval  Academy 
Annapolis,  Maryland  21412 

9.  Lt.  F.  E.  Hudik 

17103  Lake  Point  Drive  S.E. 

Yelm,  Washington  98597 


Copies 

2 

2 

5 

3 

1 

1 

1 

1 

1 


287 


